perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: modperl-2.0/t/response/TestDirective perlmodule.pm perlrequire.pm
Date Fri, 18 Jan 2002 06:57:32 GMT
stas        02/01/17 22:57:32

  Modified:    t/response/TestDirective perlmodule.pm perlrequire.pm
  Log:
  - wrap long lines (> 80)
  
  Revision  Changes    Path
  1.2       +2 -1      modperl-2.0/t/response/TestDirective/perlmodule.pm
  
  Index: perlmodule.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestDirective/perlmodule.pm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- perlmodule.pm	18 Jan 2002 06:52:01 -0000	1.1
  +++ perlmodule.pm	18 Jan 2002 06:57:32 -0000	1.2
  @@ -32,7 +32,8 @@
   \$ApacheTest::PerlModuleTest::MAGIC = '$magic';
   1;
   EOF
  -    my $file = catfile $target_dir, 'perlmodule-vh', 'ApacheTest', 'PerlModuleTest.pm';
  +    my $file = catfile $target_dir,
  +        'perlmodule-vh', 'ApacheTest', 'PerlModuleTest.pm';
       $self->writefile($file, $content, 1);
   }
   
  
  
  
  1.5       +3 -1      modperl-2.0/t/response/TestDirective/perlrequire.pm
  
  Index: perlrequire.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestDirective/perlrequire.pm,v
  retrieving revision 1.4
  retrieving revision 1.5
  diff -u -r1.4 -r1.5
  --- perlrequire.pm	18 Jan 2002 06:53:46 -0000	1.4
  +++ perlrequire.pm	18 Jan 2002 06:57:32 -0000	1.5
  @@ -33,6 +33,7 @@
   
       my $vars = $self->{vars};
       my $target_dir = catfile $vars->{documentroot}, 'testdirective';
  +
       # create two different PerlRequireTest.pm packages to be loaded by
       # vh and main interpreters, on the fly before the tests start
       while (my($test, $magic) = each %require_tests) {
  @@ -41,7 +42,8 @@
   \$ApacheTest::PerlRequireTest::MAGIC = '$magic';
   1;
   EOF
  -        my $file = catfile $target_dir, $test, 'ApacheTest', 'PerlRequireTest.pm';
  +        my $file = catfile $target_dir,
  +            $test, 'ApacheTest', 'PerlRequireTest.pm';
           $self->writefile($file, $content, 1);
       }
   }
  
  
  

Mime
View raw message