| # | Line 42 | Line 42 | while ($#ARGV >= 0) { | |
|---|---|---|
| 42 | } | |
| 43 | shift @ARGV; | |
| 44 | } | |
| 45 | < | userror() if ($#ARGV >= 0); |
| 45 | > | userror() if ($#ARGV > 0); |
| 46 | my $funcfile = "$td/isofuncs.cal"; | |
| 47 | my @vnm = ("Tspec","Tdiff","Rspec","Rdiff"); | |
| 48 | if ($#ARGV == 0) { | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |