home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / SATAN11.ZIP / PERL / SOCKET.PL < prev    next >
Text File  |  1995-04-11  |  591b  |  22 lines
  1. #
  2. # Some PERL installations have no sys/*.ph, and on some sites the
  3. # sys/*.ph files are busted. Since we need this only for a few things we
  4. # Even grabbing the definitions directly from sys/socket.h is problematic
  5. # on SYSV4 where the include files are messed up by recursive defines. So
  6. # we revert to running a C program that emits PERL code.
  7. #
  8.  
  9. require 'config/paths.pl';
  10.  
  11. die "$SYS_SOCKET: $!. Did you run 'reconfig' and 'make'?\n" 
  12.     unless -x "$SYS_SOCKET";
  13.  
  14. eval `$SYS_SOCKET`;
  15.  
  16. #
  17. # When that failed, die a horrible death.
  18. #
  19. die "./$SYS_SOCKET: $@.\n" if $@;
  20.  
  21. 1;
  22.