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/16 02:21:30 UTC
cvs commit: modperl-2.0/t/filter/TestFilter in_str_bin_data.pm
stas 2004/03/15 17:21:30
Modified: t/filter in_str_bin_data.t
t/filter/TestFilter in_str_bin_data.pm
Log:
cleanup
Revision Changes Path
1.2 +0 -3 modperl-2.0/t/filter/in_str_bin_data.t
Index: in_str_bin_data.t
===================================================================
RCS file: /home/cvs/modperl-2.0/t/filter/in_str_bin_data.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -u -r1.1 -r1.2
--- in_str_bin_data.t 16 Mar 2004 00:59:45 -0000 1.1
+++ in_str_bin_data.t 16 Mar 2004 01:21:30 -0000 1.2
@@ -22,8 +22,5 @@
ok t_cmp($expected,
$received,
"$location binary response data");
- open my $fh, ">>/tmp/dat" or die $!;
- print $fh "$received\n";
- close $fh;
}
1.2 +2 -2 modperl-2.0/t/filter/TestFilter/in_str_bin_data.pm
Index: in_str_bin_data.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/filter/TestFilter/in_str_bin_data.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -u -r1.1 -r1.2
--- in_str_bin_data.pm 16 Mar 2004 00:59:45 -0000 1.1
+++ in_str_bin_data.pm 16 Mar 2004 01:21:30 -0000 1.2
@@ -1,7 +1,7 @@
package TestFilter::in_str_bin_data;
-# test that $r->print correctly handles binary data (e.g. doesn't
-# truncate on "\0" if there is more data after it)
+# test that $r->print and $f->print handle binary data correctly
+# (e.g. doesn't truncate on "\0" if there is more data after it)
use strict;
use warnings FATAL => 'all';