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