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

[stas]

stas        02/05/22 12:49:28

  Modified:    t/protocol/TestProtocol eliza.pm
  Log:
  adjust the handler for the changed dialog ending
  
  Revision  Changes    Path
  1.4       +1 -1      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.3
  retrieving revision 1.4
  diff -u -r1.3 -r1.4
  --- eliza.pm  11 Apr 2002 11:08:43 -0000      1.3
  +++ eliza.pm  22 May 2002 19:49:28 -0000      1.4
  @@ -26,7 +26,7 @@
           $socket->recv($buff, $rlen);
           last if $rlen <= 0;
           chomp $buff;
  -        $last++ if $buff eq 'good bye';
  +        $last++ if $buff eq 'Good bye, Eliza';
           $buff = $mybot->transform( $buff ) . "\n";
           $socket->send($buff, length $buff);
           last if $last;