dougm 01/05/04 18:46:30
Modified: Apache-Test/lib/Apache TestConfigPerl.pm
Log:
allow api test files to have the same names as hooks
Revision Changes Path
1.11 +2 -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.10
retrieving revision 1.11
diff -u -r1.10 -r1.11
--- TestConfigPerl.pm 2001/04/25 02:02:19 1.10
+++ TestConfigPerl.pm 2001/05/05 01:46:29 1.11
@@ -246,7 +246,8 @@
my($base, $sub) =
map { s/^test//i; $_ } split '::', $module;
- my $hook = $hooks{$sub} || $hooks{$subdir} || $subdir;
+ my $hook = ($subdir eq 'Hooks' ? $hooks{$sub} : '')
+ || $hooks{$subdir} || $subdir;
if ($hook eq 'OutputFilter' and $pm =~ /^i/) {
#XXX: tmp hack
