Browse Source

Add a function to keep track of found errors

cypherpunks 7 years ago
parent
commit
4b2516313e
1 changed files with 8 additions and 0 deletions
  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;