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