perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@apache.org
Subject cvs commit: modperl-2.0/t/protocol/TestProtocol eliza.pm
Date Thu, 10 Jan 2002 17:26:20 GMT
dougm       02/01/10 09:26:20

  Modified:    t/protocol/TestProtocol eliza.pm
  Log:
  chomp the string before testing value
  
  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);
  
  
  

Mime
View raw message