dougm 01/04/19 10:21:35
Modified: Apache-Test/lib/Apache TestConfigPerl.pm
Log:
hack for testing PerlInputFilterHandlers
Revision Changes Path
1.8 +8 -1 modperl-2.0/Apache-Test/lib/Apache/TestConfigPerl.pm
Index: TestConfigPerl.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/Apache-Test/lib/Apache/TestConfigPerl.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -r1.7 -r1.8
--- TestConfigPerl.pm 2001/04/13 02:04:52 1.7
+++ TestConfigPerl.pm 2001/04/19 17:21:32 1.8
@@ -229,7 +229,8 @@
return unless /\.pm$/;
my @args;
- my $module = catfile $File::Find::dir, $_;
+ my $pm = $_;
+ my $module = catfile $File::Find::dir, $pm;
$self->add_module_config($module, \@args);
$module = abs2rel $module, $dir;
$module =~ s,\.pm$,,;
@@ -239,6 +240,12 @@
map { s/^test//i; $_ } split '::', $module;
my $hook = $hooks{$sub} || $hooks{$subdir} || $subdir;
+
+ if ($hook eq 'OutputFilter' and $pm =~ /^i/) {
+ #XXX: tmp hack
+ $hook = 'InputFilter';
+ }
+
my $handler = join $hook, qw(Perl Handler);
if ($self->server->{rev} < 2 and lc($hook) eq 'response') {