# | Line 43 | Line 43 | while ($#ARGV >= 0 && "$ARGV[0]" =~ /^[-\@]/) { | |
---|---|---|
43 | } | |
44 | # Check booleans | |
45 | for my $boopt (@boolO) { | |
46 | < | if ("$ARGV[0]" =~ ('^' . $boopt . '[-+01tfynTFYN]$')) { |
46 | > | if ("$ARGV[0]" =~ ('^' . $boopt . '[-+01tfynTFYN]?$')) { |
47 | push @rtraceA, $ARGV[0]; | |
48 | push @rpictA, shift(@ARGV); | |
49 | next OPTION; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |