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