stas 2003/03/25 23:11:34
Modified: perl-framework/Apache-Test/lib/Apache TestMM.pm TestRun.pm
Log:
tidy up, no content change ;)
Revision Changes Path
1.22 +4 -4
httpd-test/perl-framework/Apache-Test/lib/Apache/TestMM.pm
Index: TestMM.pm
===================================================================
RCS file:
/home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestMM.pm,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -r1.21 -r1.22
--- TestMM.pm 26 Mar 2003 06:40:56 -0000 1.21
+++ TestMM.pm 26 Mar 2003 07:11:34 -0000 1.22
@@ -69,22 +69,22 @@
unlink $file if -e $file;
- my $content = '';
+ my $body = '';
if (@Apache::TestMM::Argv) {
- $content = "\%Apache::TestConfig::Argv =
qw(@Apache::TestMM::Argv);\n";
+ $body .= "\%Apache::TestConfig::Argv = qw(@Apache::TestMM::Argv);\n";
}
my $in = Symbol::gensym();
open $in, "$file.PL" or die "Couldn't open $file.PL: $!";
{
local $/;
- $content .= <$in>;
+ $body .= <$in>;
}
close $in;
info "generating script $file";
- Apache::Test::config()->write_perlscript($file, $content);
+ Apache::Test::config()->write_perlscript($file, $body);
}
sub filter_args {
1.102 +6 -5
httpd-test/perl-framework/Apache-Test/lib/Apache/TestRun.pm
Index: TestRun.pm
===================================================================
RCS file:
/home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestRun.pm,v
retrieving revision 1.101
retrieving revision 1.102
diff -u -r1.101 -r1.102
--- TestRun.pm 31 Jan 2003 22:21:03 -0000 1.101
+++ TestRun.pm 26 Mar 2003 07:11:34 -0000 1.102
@@ -831,17 +831,18 @@
$file ||= catfile 't', 'TEST';
- my $content = '';
+ my $body = '';
+
if (@Apache::TestMM::Argv) {
- $content = "\%Apache::TestConfig::Argv =
qw(@Apache::TestMM::Argv);\n";
+ $body .= "\%Apache::TestConfig::Argv = qw(@Apache::TestMM::Argv);\n";
}
my $header = Apache::TestConfig->perlscript_header;
- $content .= join "\n",
- $header, "use $class ();", "$class->new->run([EMAIL PROTECTED]);";
+ $body .= join "\n",
+ $header, "use $class ();", "$class->new->run([EMAIL PROTECTED]);";
- Apache::Test::config()->write_perlscript($file, $content);
+ Apache::Test::config()->write_perlscript($file, $body);
}
# in idiomatic perl functions return 1 on success 0 on
