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/05/13 11:13:41 UTC
cvs commit: modperl-2.0/t/filter/TestFilter out_str_req_mix.pm
stas 2003/05/13 02:13:41
Modified: t/filter/TestFilter out_str_req_mix.pm
Log:
correct debugging warning
Revision Changes Path
1.4 +1 -1 modperl-2.0/t/filter/TestFilter/out_str_req_mix.pm
Index: out_str_req_mix.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/filter/TestFilter/out_str_req_mix.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- out_str_req_mix.pm 18 Apr 2003 06:18:57 -0000 1.3
+++ out_str_req_mix.pm 13 May 2003 09:13:41 -0000 1.4
@@ -43,7 +43,7 @@
sub adjust {
my $filter = shift;
- #warn "add_prefix called\n";
+ #warn "adjust called\n";
while ($filter->read(my $buffer, 1024)){
$buffer =~ s/REMOVE//;