stas 2003/01/11 18:37:11
Modified: t/filter/TestFilter reverse.pm
Log:
send the signature only when eos has been seen (the filter can be invoked
many times during the same request)
Revision Changes Path
1.5 +4 -1 modperl-2.0/t/filter/TestFilter/reverse.pm
Index: reverse.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/filter/TestFilter/reverse.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- reverse.pm 25 Nov 2002 22:46:29 -0000 1.4
+++ reverse.pm 12 Jan 2003 02:37:11 -0000 1.5
@@ -18,7 +18,10 @@
$filter->print("\n");
}
}
- $filter->print("Reversed by mod_perl 2.0\n");
+
+ if ($filter->seen_eos) {
+ $filter->print("Reversed by mod_perl 2.0\n");
+ }
return Apache::OK;
}
