windows-nt/Source/XPSP1/NT/tools/determinechanges.pl
2020-09-26 16:20:57 +08:00

11 lines
232 B
Perl

if (-e $ARGV[0]) {
open FILE, $ARGV[0];
$baseline = <FILE>;
close FILE;
$string = "sdx delta $baseline";
system $string;
} else {
print "usage: DetermineChanges.pl <path to build.baseline>\n";
exit -1;
}