home *** CD-ROM | disk | FTP | other *** search
/ PC World 2005 June / PCWorld_2005-06_cd.bin / software / vyzkuste / firewally / firewally.exe / framework-2.3.exe / ptrtstrun.pl < prev    next >
Text File  |  2002-05-25  |  442b  |  27 lines
  1. use Config;
  2.  
  3. print "cc: " . $Config{'cc'} . "\n";
  4.  
  5. if(runptrcasttst()) {
  6.   print "ok\n";
  7. } else {
  8.   print "not ok.\n";
  9. }
  10.  
  11. sub runptrcasttst {
  12.   if( !($r = system "$Config{'cc'} -o ptrcasttst ptrcasttst.c") ) {
  13.     print "ok\n";
  14.   } else {
  15.     print "not ok\n";
  16.     return 0;
  17.   }
  18.   if( !($r = system "./ptrcasttst") ) {
  19.     print "ok\n";
  20.     return 1;
  21.   } else {
  22.     print "not ok\n";
  23.     return 0;
  24.   }
  25.   return 0;
  26. }
  27.