Add a function to keep track of found errors

This commit is contained in:
cypherpunks 2016-12-15 11:11:28 +00:00 committed by Nick Mathewson
parent 44db6461b5
commit 4b2516313e

View File

@ -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;