# | Line 31 | Line 31 | while ($#ARGV >= 0) { | |
---|---|---|
31 | shift @ARGV; | |
32 | } elsif ("$ARGV[0]" =~ /^-d/) { | |
33 | userror() if ($#ARGV < 6); | |
34 | < | @dim = "@ARGV[1..6]"; |
34 | > | @dim = @ARGV[1..6]; |
35 | shift @ARGV for (1..6); | |
36 | } elsif ("$ARGV[0]" =~ /^[-+]./) { | |
37 | userror(); |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |