| # | 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 (old) |
| > | Changed lines (new) |