At Thu, 04 Jul 2002 20:07:12 +0900,
Tatsuhiko Miyagawa wrote:
> I mean I don't use perl-script or modperl for content generation. just
> serves plain .html file with default-handler.
OK. I tried
<Location /hello>
SetHandler modperl
PerlResponseHandler Slasher::Hello
PerlOutputFilterHandler Slasher::HTMLTemplate
</Location>
and then it worked!
okay, current TestFilter::lc test is applied to static file, thus
here's a patch to reproduce the failure:
(does it never get flushed? if I put die() after last print(), the
message gets out before "OK" annoying error messages)
Index: t/filter/lc.t
===================================================================
RCS file: /home/cvspublic/modperl-2.0/t/filter/lc.t,v
retrieving revision 1.4
diff -u -r1.4 lc.t
--- t/filter/lc.t 20 Dec 2001 03:54:41 -0000 1.4
+++ t/filter/lc.t 4 Jul 2002 11:18:07 -0000
@@ -4,10 +4,11 @@
use Apache::Test;
use Apache::TestRequest;
-plan tests => 1;
+plan tests => 2;
my $location = "/top_dir/Makefile";
my $str = GET_BODY $location;
ok $str !~ /[A-Z]/;
+ok $str =~ /lc\(\)ed by mod_perl 2.0/;
Index: t/filter/TestFilter/lc.pm
===================================================================
RCS file: /home/cvspublic/modperl-2.0/t/filter/TestFilter/lc.pm,v
retrieving revision 1.3
diff -u -r1.3 lc.pm
--- t/filter/TestFilter/lc.pm 11 Apr 2002 11:08:43 -0000 1.3
+++ t/filter/TestFilter/lc.pm 4 Jul 2002 11:18:07 -0000
@@ -13,7 +13,7 @@
while ($filter->read(my $buffer, 1024)) {
$filter->print(lc $buffer);
}
-
+ $filter->print("lc()ed by mod_perl 2.0\n");
Apache::OK;
}
--
Tatsuhiko Miyagawa <[EMAIL PROTECTED]>
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
