cvs commit: modperl-2.0/t/protocol/TestProtocol eliza.pm

[dougm]

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);