Fix a perl warning in `parseout.pl'.

* bench/ltl2tgba/parseout.pl: Fix a warning when using an option
by shifting the option when there is one.
This commit is contained in:
Thomas Badie 2012-06-19 18:26:11 +02:00 committed by Alexandre Duret-Lutz
parent 6d047a1d6b
commit d5bb0ffe89

View file

@ -32,6 +32,7 @@ my ($a, $b, $acc, $time, $det, $ndindex);
my $prefix = 'All formulae';
$prefix = 'Pos. formulae' if $ARGV[0] eq '-p';
$prefix = 'Neg. formulae' if $ARGV[0] eq '-n';
shift if $ARGV[0] eq '-n' or $ARGV[0] eq '-p';
sub sep($)
{