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 2004/03/25 21:51:15 UTC
cvs commit: modperl-2.0/t/protocol echo.t echo_filter.t
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);
}