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:
parent
6d047a1d6b
commit
d5bb0ffe89
1 changed files with 1 additions and 0 deletions
|
|
@ -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($)
|
||||
{
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue