| # | Line 91 | Line 91 | if (-e $rif) { # RIF already exists? | |
|---|---|---|
| 91 | exit; | |
| 92 | } | |
| 93 | ||
| 94 | + | if ($objects[0] =~ /\.xml$/i) { |
| 95 | + | system "checkBSDF $objects[0]"; |
| 96 | + | die "Bad XML input\n" if ( $? ); |
| 97 | + | } |
| 98 | + | |
| 99 | print "bsdfview: creating rad input file '$rif'\n"; | |
| 100 | ||
| 101 | my $scene = qq("!bsdf2rad @range @objects"); # let bsdf2rad do complaining | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |