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