perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From go...@apache.org
Subject cvs commit: modperl-2.0/t/response/TestDirective cmdparms.pm
Date Mon, 13 Sep 2004 23:02:35 GMT
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 ###
  
  
  

Mime
View raw message