gozer 2004/09/13 16:02:35
Modified: t/response/TestDirective cmdparms.pm
Log:
Cleanup test a bit by using inheritance.
Revision Changes Path
1.9 +1 -6 modperl-2.0/t/response/TestDirective/cmdparms.pm
Index: cmdparms.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/response/TestDirective/cmdparms.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -r1.8 -r1.9
--- cmdparms.pm 13 Sep 2004 22:36:19 -0000 1.8
+++ cmdparms.pm 13 Sep 2004 23:02:35 -0000 1.9
@@ -4,7 +4,7 @@
use warnings FATAL => 'all';
use Apache::CmdParms ();
-use Apache::Module ();
+use base qw(Apache::Module);
use Apache::Test;
use Apache::TestUtil;
@@ -48,11 +48,6 @@
$parms->check_cmd_context(Apache::NOT_IN_LOCATION);
$srv_cfg->{$args}{limited} = $parms->method_is_limited('GET');
-}
-
-sub get_config {
- my($self, $s) = (shift, shift);
- Apache::Module::get_config($self, $s, @_);
}
### response handler ###
