perl-dev mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Stas Bekman <s...@stason.org>
Subject Re: cvs commit: modperl-2.0/t/protocol/TestProtocol eliza.pm
Date Thu, 10 Jan 2002 18:03:54 GMT
dougm@apache.org 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:stas@stason.org  http://ticketmaster.com http://apacheweek.com
http://singlesheaven.com http://perl.apache.org http://perlmonth.com/




---------------------------------------------------------------------
To unsubscribe, e-mail: dev-unsubscribe@perl.apache.org
For additional commands, e-mail: dev-help@perl.apache.org


Mime
View raw message