You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by st...@apache.org on 2003/09/24 01:53:58 UTC
cvs commit: modperl-2.0/t/filter both_str_con_add.t
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);