# | 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 |