home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #16 / NN_1992_16.iso / spool / comp / lang / perl / 4991 < prev    next >
Encoding:
Internet Message Format  |  1992-07-28  |  1.3 KB
  1. Xref: sparky comp.lang.perl:4991 comp.sys.sequent:468
  2. Newsgroups: comp.lang.perl,comp.sys.sequent
  3. Path: sparky!uunet!usc!sdd.hp.com!ux1.cso.uiuc.edu!news.cso.uiuc.edu!ux2.cso.uiuc.edu!ejk
  4. From: ejk@ux2.cso.uiuc.edu (Ed Kubaitis - CCSO)
  5. Subject: ptx accept() botch & perl 4.035
  6. Message-ID: <Bs3MrK.IAr@news.cso.uiuc.edu>
  7. Sender: usenet@news.cso.uiuc.edu (Net Noise owner)
  8. Organization: University of Illinois - Urbana
  9. Date: Tue, 28 Jul 1992 12:30:55 GMT
  10. Lines: 28
  11.  
  12. Perl4.035 accept() fails with "Invalid argument" on Sequent ptx V1.3.1.
  13. It seems ptx accept() thinks the addrlen argument provided by perl
  14. is, um, too *large*.
  15.  
  16. The attached doio.c hack allows accept to work in the AF_INET family. 
  17. AF_UNIX is currently not an issue as unix domain sockets don't work on 
  18. ptx anyway. 
  19.  
  20. ----------------------------------
  21. Ed Kubaitis (ejk@ux2.cso.uiuc.edu)
  22. Computing & Communications Services Office - University of Illinois, Urbana
  23. ==============================================================================
  24. *** doio.c-    Fri Jun 12 00:46:24 1992
  25. --- doio.c    Mon Jul 27 13:31:47 1992
  26. ***************
  27. *** 1524,1530 ****
  28. --- 1524,1534 ----
  29.   {
  30.       register STIO *nstio;
  31.       register STIO *gstio;
  32. + #ifdef _SEQUENT_
  33. +     int len = sizeof(struct sockaddr);
  34. + #else
  35.       int len = sizeof buf;
  36. + #endif
  37.       int fd;
  38.   
  39.       if (!nstab)
  40.