src/ccapi/test/setlib.pl


1
2
3
4
5
6
7
8
9
10

#!perl -w

$b = "lib\\win\\srctmp";
$a = $ENV{LIB};
if (! ($a =~ /$b/) ) {
    print "$b Not in LIB!\n";
    system("del a.tmp");
    }
else {print "$b in LIB.\n";}
exit(0);