stas        2004/08/13 22:20:19

  Modified:    t/response/TestDirective cmdparms.pm
  Log:
  remove excessive spacing
  
  Revision  Changes    Path
  1.6       +7 -7      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.5
  retrieving revision 1.6
  diff -u -u -r1.5 -r1.6
  --- cmdparms.pm       14 Aug 2004 04:45:20 -0000      1.5
  +++ cmdparms.pm       14 Aug 2004 05:20:19 -0000      1.6
  @@ -28,16 +28,16 @@
   use constant KEY => "TestCmdParms";
   
   our @APACHE_MODULE_COMMANDS = (
  -    { 
  +    {
           name        => +KEY,
           cmd_data    => 'cmd_data',
           errmsg      => 'errmsg',
       },
   );
  -  
  +
   my @methods = qw(cmd context directive info limited override path
                    pool server temp_pool);
  -  
  +
   sub TestCmdParms {
       my($self, $parms, $args) = @_;
       my $srv_cfg = $self->get_config($parms->server);
  @@ -56,7 +56,7 @@
   ### response handler ###
   sub handler : method {
       my($self, $r) = @_;
  -    my $override; 
  +    my $override;
       my $srv_cfg = $self->get_config($r->server);
   
       plan $r, tests => 6 + ( 8 * keys(%$srv_cfg) );
  @@ -70,7 +70,7 @@
           ok t_cmp(ref($cfg->{server}), 'Apache::ServerRec', 'server');
           ok t_cmp($cfg->{limited}, -1, 'limited');
           ok t_cmp($cfg->{info}, 'cmd_data', 'cmd_data');
  -    }    
  +    }
   
       # vhost
       {
  @@ -90,7 +90,7 @@
       # Location
       {
           my $loc = $srv_cfg->{Location};
  -        
  +
           my $wanted = Apache::ACCESS_CONF |
                        Apache::OR_INDEXES  |
                        Apache::OR_AUTHCFG  |
  @@ -101,7 +101,7 @@
   
           ok t_cmp($masked, $wanted, 'override bitmask');
           ok t_cmp($loc->{path}, '/TestDirective__cmdparms', 'path');
  -        ok t_cmp($loc->{check_ctx}, KEY . 
  +        ok t_cmp($loc->{check_ctx}, KEY .
                     ' cannot occur within <Location> section', 'check_cmd_ctx');
       }
   
  
  
  

Reply via email to