Explorar el Código

Add a function to keep track of found errors

cypherpunks hace 7 años
padre
commit
4b2516313e
Se han modificado 1 ficheros con 8 adiciones y 0 borrados
  1. 8 0
      scripts/maint/checkSpace.pl

+ 8 - 0
scripts/maint/checkSpace.pl

@@ -3,6 +3,12 @@
 use strict;
 use warnings;
 
+my $found = 0;
+sub msg {
+  $found = 1;
+  print "$_[0]";
+}
+
 my $C = 0;
 
 if ($ARGV[0] =~ /^-/) {
@@ -189,3 +195,5 @@ for my $fn (@ARGV) {
     }
     close(F);
 }
+
+exit $found;