cvs commit: modperl-2.0/t/protocol echo.t echo_filter.t

[stas]

stas        2004/03/25 12:51:15

  Modified:    t/protocol echo.t echo_filter.t
  Log:
  better handling of undef issues
  
  Revision  Changes    Path
  1.4       +1 -1      modperl-2.0/t/protocol/echo.t
  
  Index: echo.t
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/protocol/echo.t,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -u -r1.3 -r1.4
  --- echo.t    1 Jan 2002 10:44:29 -0000       1.3
  +++ echo.t    25 Mar 2004 20:51:15 -0000      1.4
  @@ -15,6 +15,6 @@
   
   for (@test_strings) {
       print $socket "$_\n";
  -    chomp(my $reply = <$socket>);
  +    chomp(my $reply = <$socket>||'');
       ok t_cmp($_, $reply);
   }
  
  
  
  1.3       +1 -1      modperl-2.0/t/protocol/echo_filter.t
  
  Index: echo_filter.t
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/protocol/echo_filter.t,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -u -r1.2 -r1.3
  --- echo_filter.t     1 Jan 2002 10:44:29 -0000       1.2
  +++ echo_filter.t     25 Mar 2004 20:51:15 -0000      1.3
  @@ -15,6 +15,6 @@
   
   for (@test_strings) {
       print $socket "$_\n";
  -    chomp(my $reply = <$socket>);
  +    chomp(my $reply = <$socket>||'');
       ok t_cmp($_, $reply);
   }