Slightly better warning reporting.

[features.git] / po / pocheck.pl

diff --git a/po/pocheck.pl b/po/pocheck.pl
index 77dfe6db5f90f4a8343a4054f2f2b569d313e7ba..33f0e94a22ca0b3e3fed099be4f9c20e312573e9 100755 (executable)
--- a/po/pocheck.pl
+++ b/po/pocheck.pl
@@ -214,7 +214,13 @@ foreach my $pofilename ( @ARGV ) {
     }
   }
 
+  if ($warn) {
+    while (my ($k, $v) = each %bad) { print "$k: $v\n"; }
+    if (scalar(keys %bad) > 1) {
+      print "Total warnings: $warn\n";
+    }
+  } else {
+    print "No warnings!\n";
+  }
   print "\n";
-  while (my ($k, $v) = each %bad) { print "$k: $v warnings\n"; }
-  print "Total number of warnings: $warn\n\n";
 }