p5pRT
commented
24 years ago From Richard.Hensgens@nl.origin-it.com
L.S.\,
We have encountered a very interesting problem on which you are really our last resort:
Exiting a child in a forking server (example on page 194 of 'Advanced Perl Programming' O'Reilly) seems to clean-up the server socket of the parent on newer levels of Solaris. The parent exits with a 'EBADF (Bad file number)' after having served one client request.
We have tried almost everything within our power\, e.g.:
* compiling Perl on a working OS level and copying the binaries to the non-working OS level\, * compiling the current development version (5.005_61)\, * different GNU compilers (2.8.1 and 2.95.1)\, * SUN Workshop Compiler C/C++ 4.2\, * hacking in 'config.sh' (e.g. 'usevfork=false/true'\, multithreaded/non-multithreaded).
Nothing works out.
After issuing a bug report\, SUN responded with the following: \<\<FW: Bug ID# 4146098>> but this is to low-level for us to understand what's really going on. The troubling patch from SUN seems to be 105210-17 or above.
In more understandable language they claimed that older versions of Solaris had a bug\, which is fixed in newer releases and that Perl has probably been working around that bug. Now the bug is removed from the OS \, Perl is still working around\, but this time unsuccesfully.
Does this make sense to you ?
Can you help ???
P.S.: Below you can find all mail communications with SUN. If you need additional information\, please let us now.
Met vriendelijke groet/Kind regards\, Richard Hensgens ORIGIN B.V. - Managed Services - Distributed Systems Building VA-171\, E-Mail: Richard.Hensgens@nl.origin-it.com Phone: (+31:4027)87097\, Fax: (+31:4027)83962
The unix guru's view on sex: # unzip; strip; touch; finger; mount; fsck; more; yes; umount; sleep
-----Original Message----- From: Zuijdwijk\, Pieter Sent: Thursday\, September 30\, 1999 6:44 PM To: 'dispatch@holland.sun.com' Cc: Zuijdwijk\, Pieter; Hensgens\, Richard Subject: Call Nr. 6583771
Hereby the "truss -aef" output of 2 SUN systems running 2 different OS levels:
OK files: SunOS ... 5.6 Generic_105181-06 sun4u sparc SUNW\,Ultra-4 NOK files: SunOS ... 5.6 Generic_105181-15 sun4u sparc SUNW\,Ultra-Enterprise
\<\<Client.truss.out.NOK>> \<\<Client.truss.out.OK>> \<\<Client.pl>>
\<\<Server.pl>> \<\<Server.truss.out.NOK>> \<\<Server.truss.out.OK>> As you can see we have also problems on 5.6 Generic_105181-15 on Ultra-Enterprise 3000. Not a specific Solaris 7 issue after all.
Thanks in advance.
Pieter Zuijdwijk Origin TIS-DS-UNIX-SUN Groenewoudseweg 1 5621 BA Eindhoven\, The Netherlands Building VA-169 Phone +31 (0)40 27 89605 Fax +31 (0)40 27 89362
-----Original Message----- From: Hensgens\, Richard Sent: Tuesday\, September 28\, 1999 1:09 PM To: Zuijdwijk\, Pieter Subject: Bug Solaris 2.7
Pieter\,
Before we start downgrading the SUN box\, maybe first a bug report to SUN ?
Regular examples from the O'Reilly Perl books work differently on Solaris 2.6 and Solaris 2.7 with exactly the same Perl versions (5.005_03):
Server.pl: #!/usr/bin/perl
use IO::Socket;
$SIG{CHLD} = sub { wait() };
$Sock = new IO::Socket::INET( LocalPort => 9000\, Proto => 'tcp'\, Listen => SOMAXCONN\, Reuse => 1 ) or die "SOCKET() error [$!]";
while ( $NewSock = $Sock->accept() ) { $Pid = fork();
if ( $Pid == 0 ) { while ( defined( $Buffer = \<$NewSock> ) ) { print( $Buffer ); }
exit( 0 ); } }
close( $Sock );
exit( 0 );
Client.pl: #!/usr/bin/perl
use IO::Socket;
$Sock = new IO::Socket::INET( PeerAddr => 'tsesun01'\, PeerPort => 9000\, Proto => 'tcp' ) or die "SOCKET() error [$!]";
foreach ( 1..10 ) { print( $Sock "Msg $_: How are you ?\n" ); }
close( $Sock );
exit( 0 );
Output on Solaris 2.6:
nl1sahd1:root> ./Server.pl nl1sahd1:root> jobs [1] + Running ./Server.pl & nl1sahd1:root> ./Client.pl nl1sahd1:root> Msg 1: How are you ? Msg 2: How are you ? Msg 3: How are you ? Msg 4: How are you ? Msg 5: How are you ? Msg 6: How are you ? Msg 7: How are you ? Msg 8: How are you ? Msg 9: How are you ? Msg 10: How are you ?
nl1sahd1:root> jobs [1] + Running ./Server.pl &
Server serves as many requests as it should be.
Output on Solaris 2.7:
tsesun01:root> ./Server.pl & [1] 12331 tsesun01:root> jobs [1] + Running ./Server.pl & tsesun01:root> ./Client.pl Msg 1: How are you ? Msg 2: How are you ? tsesun01:root> Msg 3: How are you ? Msg 4: How are you ? Msg 5: How are you ? Msg 6: How are you ? Msg 7: How are you ? Msg 8: How are you ? Msg 9: How are you ? Msg 10: How are you ?
[1] + Done ./Server.pl & tsesun01:root> jobs
Server only serves one request and ends !!!!!
Migrated from rt.perl.org#1564 (status was 'resolved')
Searchable as RT1564$