You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
36 lines
612 B
36 lines
612 B
use Cwd; |
|
|
|
my $dir = getcwd; |
|
|
|
chdir "../../materialsystem/stdshaders"; |
|
|
|
@output = `perl ..\\..\\devtools\\bin\\checkshaderchecksums.pl stdshader_dx9_20b.txt`; |
|
foreach $_ (@output) |
|
{ |
|
$output.=$_ unless(/appchooser360/i); |
|
} |
|
|
|
@output = `perl ..\\..\\devtools\\bin\\checkshaderchecksums.pl stdshader_dx9_30.txt`; |
|
foreach $_ (@output) |
|
{ |
|
$output.=$_ unless(/appchooser360/i); |
|
} |
|
|
|
my $errors; |
|
|
|
foreach $_ (@output ) |
|
{ |
|
$errors.=$_ unless (/appchooser360movie/); |
|
} |
|
|
|
chdir $dir; |
|
|
|
print $errors; |
|
|
|
if( length( $errors ) > 0 ) |
|
{ |
|
print "writing errors.txt\n"; |
|
open FP, ">errors.txt"; |
|
print FP "$errors"; |
|
close FP; |
|
}
|
|
|