cvs commit: modperl-2.0/t/filter both_str_con_add.t

[stas]

stas        2003/09/23 16:53:58

  Modified:    t/filter both_str_con_add.t
  Log:
  Prevent "Use of uninitialized value in chomp" warnings
  
  Revision  Changes    Path
  1.4       +1 -1      modperl-2.0/t/filter/both_str_con_add.t
  
  Index: both_str_con_add.t
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/filter/both_str_con_add.t,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -u -r1.3 -r1.4
  --- both_str_con_add.t        11 May 2003 23:51:11 -0000      1.3
  +++ both_str_con_add.t        23 Sep 2003 23:53:58 -0000      1.4
  @@ -16,7 +16,7 @@
   
   for my $str (@test_strings) {
       print $socket "$str\n";
  -    chomp(my $reply = <$socket>);
  +    chomp(my $reply = <$socket>||'');
       $str = lc $str;
       $str =~ s/modperl/mod_perl/;
       ok t_cmp($str, $reply);