Quellcode durchsuchen

Add a function to keep track of found errors

cypherpunks vor 7 Jahren
Ursprung
Commit
4b2516313e
1 geänderte Dateien mit 8 neuen und 0 gelöschten Zeilen
  1. 8 0
      scripts/maint/checkSpace.pl

+ 8 - 0
scripts/maint/checkSpace.pl

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