ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/util/rtpict.pl
(Generate patch)

Comparing ray/src/util/rtpict.pl (file contents):
Revision 2.14 by greg, Sat Mar 14 20:09:55 2020 UTC vs.
Revision 2.15 by greg, Sun Mar 15 16:54:19 2020 UTC

# Line 186 | Line 186 | if (! -d $outdir) {
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

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines