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); } }