diff -r ff8ff850b0cf -r b5e6747818a9 bintools/evalid/evalid.pl --- a/bintools/evalid/evalid.pl Tue Nov 02 09:31:04 2010 +0800 +++ b/bintools/evalid/evalid.pl Wed Nov 10 14:19:09 2010 +0800 @@ -27,13 +27,14 @@ my $passed=0; my $failed=0; -GetOptions("c", "v", "l=s", "g", "f", "m", "u", "x=s@", "i=s@", "d=s"); +GetOptions("c", "v", "l=s", "k", "g", "f", "m", "u", "x=s@", "i=s@", "d=s"); $opt_v = $opt_v; # To keep -w quiet. $opt_g = $opt_g; # To keep -w quiet. $opt_f = $opt_f; # To keep -w quiet. $opt_m = $opt_m; # To keep -w quiet. $opt_u = $opt_u; # To keep -w quiet. $opt_d = $opt_d; # To keep -w quiet. +$opt_k = $opt_k; # To keep -w quiet. unless ((@ARGV > 1) && (@ARGV < 4)) { @@ -61,6 +62,7 @@ -v -- verbose information about failed comparisons -c -- print results to standard output -l -- append results to + -k -- keep going The default is equivalent to "-l evalid.lis" @@ -311,7 +313,7 @@ return; } - my ($same, $type) = EvalidCompare::CompareFiles($left, $right, $opt_v, $log); + my ($same, $type) = EvalidCompare::CompareFiles($left, $right, $opt_v, $log, $opt_k); if ($same) { identical($left, $right, $type);