| # | Line 40 | Line 40 | OPTION: # sort through options | |
|---|---|---|
| 40 | while ($#ARGV >= 0 && "$ARGV[0]" =~ /^[-\@]/) { | |
| 41 | # Check for file inclusion | |
| 42 | if ("$ARGV[0]" =~ /^\@/) { | |
| 43 | < | open my $handle, '<', substr($ARGV[0], 1); |
| 43 | > | open my $handle, '<', substr($ARGV[0], 1) or die "No file for $ARGV[0]\n"; |
| 44 | shift @ARGV; | |
| 45 | chomp(my @args = <$handle>); | |
| 46 | close $handle; | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |