dougm 01/05/05 15:05:31
Modified: Apache-Test/lib/Apache TestConfigPerl.pm
Log:
dont configure SetHandler for PerlResponseHandler if the test module already
configured it
Revision Changes Path
1.12 +10 -4 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.11
retrieving revision 1.12
diff -u -r1.11 -r1.12
--- TestConfigPerl.pm 2001/05/05 01:46:29 1.11
+++ TestConfigPerl.pm 2001/05/05 22:05:31 1.12
@@ -122,11 +122,17 @@
my %sethandler_modperl = (1 => 'perl-script', 2 => 'modperl');
+sub set_handler {
+ my($self, $module, $args) = @_;
+ return if grep { $_ eq 'SetHandler' } @$args;
+
+ push @$args,
+ SetHandler =>
+ $self->server->version_of(\%sethandler_modperl);
+}
+
my %add_hook_config = (
- Response => sub { my($self, $module, $args) = @_;
- push @$args,
- SetHandler =>
- $self->server->version_of(\%sethandler_modperl) },
+ Response => \&set_handler,
ProcessConnection => sub { my($self, $module, $args) = @_;
my $port = $self->new_vhost($module);
$self->postamble(Listen => $port); },
