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; |
186 |
|
foreach my $oval (split //, $outlyr) { |
187 |
|
die "Duplicate or unsupported type '$oval' in -o$outlyr\n" |
188 |
|
if (!defined $rtoutC{$oval}); |
189 |
+ |
my $outfile = "$outdir/$rtoutC{$oval}"; |
190 |
+ |
die "File '$outfile' already exists\n" if (-e $outfile); |
191 |
|
my ($otyp) = ($rtoutC{$oval} =~ /(\.[^.]+)$/); |
192 |
|
push @rsplitA, $rcodeC{$otyp}[0]; |
193 |
< |
push @rsplitA, qq{'$rcodeC{$otyp}[1] > "$outdir/$rtoutC{$oval}"'}; |
193 |
> |
push @rsplitA, qq{'$rcodeC{$otyp}[1] > "$outfile"'}; |
194 |
|
delete $rtoutC{$oval}; |
195 |
|
} |
196 |
|
# call rtrace + rsplit |