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/01/12 05:11:53 UTC
cvs commit: modperl-2.0/t/filter/TestFilter context.pm context_stream.pm
stas 2003/01/11 20:11:53
Modified: t/filter/TestFilter context.pm context_stream.pm
Log:
fix comments
Revision Changes Path
1.2 +3 -0 modperl-2.0/t/filter/TestFilter/context.pm
Index: context.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/filter/TestFilter/context.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- context.pm 12 Jan 2003 04:03:02 -0000 1.1
+++ context.pm 12 Jan 2003 04:11:53 -0000 1.2
@@ -1,5 +1,8 @@
package TestFilter::context;
+# this is the same test as TestFilter::context_stream, but uses the
+# bucket brigade API
+
use strict;
use warnings;# FATAL => 'all';
1.2 +5 -2 modperl-2.0/t/filter/TestFilter/context_stream.pm
Index: context_stream.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/filter/TestFilter/context_stream.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- context_stream.pm 12 Jan 2003 04:03:02 -0000 1.1
+++ context_stream.pm 12 Jan 2003 04:11:53 -0000 1.2
@@ -1,5 +1,8 @@
package TestFilter::context_stream;
+# this is the same test as TestFilter::context, but uses the streaming
+# API
+
use strict;
use warnings;# FATAL => 'all';
@@ -40,15 +43,15 @@
}
}
- # flush the remaining data and add a statistics signature
if ($filter->seen_eos) {
+ # flush the remaining data and add a statistics signature
$filter->print("$data\n") if $data;
my $sig = join "\n", "received $ctx->{blocks} complete blocks",
"filter invoked $ctx->{invoked} times\n";
$filter->print($sig);
}
else {
- # no need to store context, since it was the last invocation
+ # store context for all but the last invocation
$ctx->{data} = $data;
$filter->ctx($ctx);
}