pocheck: Set the exit value

diff --git a/po/pocheck.pl b/po/pocheck.pl
index 9dd416026af21ff708e7b845e32e50a5e2fa02e1..68dd83f23c4978d80f43d402d8d96b7c43f6fff0 100755 (executable)
--- a/po/pocheck.pl
+++ b/po/pocheck.pl
@@ -57,6 +57,8 @@ my $check_trans = (!%options or defined($options{t}));
 
 my %trans;
 
+my $total_warn = 0;
+
 foreach my $pofilename ( @ARGV ) {
   my %bad;
   if (!$silent_mode) {
@@ -239,4 +241,8 @@ foreach my $pofilename ( @ARGV ) {
     }
     print "\n";
   }
+  $total_warn += $warn;
 }
+
+exit ($total_warn > 0);
+