| # | Line 70 | Line 70 | $name =~ s{\.[^.]+$}{}; # remove file extension | |
|---|---|---|
| 70 | ||
| 71 | my $rif = "$name.rif"; | |
| 72 | ||
| 73 | < | die("bsdfview: will not overwrite existing file '$rif'\n") if (-e $rif); |
| 73 | > | if (-e $rif) { # RIF already exists? |
| 74 | > | print "Attempting to run with existing rad input file '$rif'\n"; |
| 75 | > | system "rad -o $raddev -w -v $vw $opts $rif QUA=$qual"; |
| 76 | > | die("\nTry removing '$rif' and starting again\n\n") if $?; |
| 77 | > | exit; |
| 78 | > | } |
| 79 | ||
| 80 | print "bsdfview: creating rad input file '$rif'\n"; | |
| 81 | ||
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |