[EMAIL PROTECTED] wrote: > dougm 02/01/10 09:26:20 > > Modified: t/protocol/TestProtocol eliza.pm > Log: > chomp the string before testing value
does this work for you? It seems that it doesn't change anything since the last call from $socket->send() never returns, so it doesn't matter what's the value of $last is. I still get the core dump. > Revision Changes Path > 1.2 +1 -0 modperl-2.0/t/protocol/TestProtocol/eliza.pm > > Index: eliza.pm > =================================================================== > RCS file: /home/cvs/modperl-2.0/t/protocol/TestProtocol/eliza.pm,v > retrieving revision 1.1 > retrieving revision 1.2 > diff -u -r1.1 -r1.2 > --- eliza.pm 6 Sep 2001 02:45:13 -0000 1.1 > +++ eliza.pm 10 Jan 2002 17:26:20 -0000 1.2 > @@ -19,6 +19,7 @@ > my $rlen = BUFF_LEN; > $socket->recv($buff, $rlen); > last if $rlen <= 0; > + chomp $buff; > $last++ if $buff eq 'good bye'; > $buff = $mybot->transform( $buff ) . "\n"; > $socket->send($buff, length $buff); > > > > -- _____________________________________________________________________ Stas Bekman JAm_pH -- Just Another mod_perl Hacker http://stason.org/ mod_perl Guide http://perl.apache.org/guide mailto:[EMAIL PROTECTED] http://ticketmaster.com http://apacheweek.com http://singlesheaven.com http://perl.apache.org http://perlmonth.com/ --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
