27 lines
442 B
Perl
27 lines
442 B
Perl
|
use Config;
|
||
|
|
|
||
|
|
print "cc: " . $Config{'cc'} . "\n";
|
||
|
|
|
||
|
|
if(runptrcasttst()) {
|
||
|
|
print "ok\n";
|
||
|
|
} else {
|
||
|
|
print "not ok.\n";
|
||
|
|
}
|
||
|
|
|
||
|
|
sub runptrcasttst {
|
||
|
|
if( !($r = system "$Config{'cc'} -o ptrcasttst ptrcasttst.c") ) {
|
||
|
|
print "ok\n";
|
||
|
|
} else {
|
||
|
|
print "not ok\n";
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
if( !($r = system "./ptrcasttst") ) {
|
||
|
|
print "ok\n";
|
||
|
|
return 1;
|
||
|
|
} else {
|
||
|
|
print "not ok\n";
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
return 0;
|
||
|
|
}
|