stas 2003/01/19 15:15:48
Modified: t/filter/TestFilter in_str_consume.pm
Log:
comment out the debug print
Revision Changes Path
1.2 +1 -1 modperl-2.0/t/filter/TestFilter/in_str_consume.pm
Index: in_str_consume.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/filter/TestFilter/in_str_consume.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- in_str_consume.pm 16 Jan 2003 05:15:18 -0000 1.1
+++ in_str_consume.pm 19 Jan 2003 23:15:48 -0000 1.2
@@ -34,7 +34,7 @@
# 8kb chunks per brigade and we have sent 11k of data (1st bb:
# 8kb, 2nd bb: ~3kb)
my $len = $filter->read($mode, $block, $readbytes, my $buffer, 1024);
- warn "FILTER READ: $len bytes\n";
+ #warn "FILTER READ: $len bytes\n";
$filter->print("read just the first 1024b from the first brigade");
$filter->ctx(1);
