stas 2004/04/16 12:47:42
Modified: perl-framework/Apache-Test/lib/Apache TestMM.pm TestRun.pm
Log:
@Apache::TestMM::Argv has to be reusable, so don't empty it
Revision Changes Path
1.34 +2 -1
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.33
retrieving revision 1.34
diff -u -u -r1.33 -r1.34
--- TestMM.pm 16 Apr 2004 19:23:40 -0000 1.33
+++ TestMM.pm 16 Apr 2004 19:47:42 -0000 1.34
@@ -90,7 +90,8 @@
$body .= Apache::TestConfig->modperl_2_inc_fixup;
- while (my($k, $v) = splice @Apache::TestMM::Argv, 0, 2) {
+ my %args = @Apache::TestMM::Argv;
+ while (my($k, $v) = each %args) {
$v =~ s/\|/\\|/g;
$body .= "\n\$Apache::TestConfig::Argv{'$k'} = q|$v|;\n";
}
1.165 +2 -1
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.164
retrieving revision 1.165
diff -u -u -r1.164 -r1.165
--- TestRun.pm 16 Apr 2004 19:23:40 -0000 1.164
+++ TestRun.pm 16 Apr 2004 19:47:42 -0000 1.165
@@ -1221,7 +1221,8 @@
$body .= Apache::TestConfig->modperl_2_inc_fixup;
- while (my($k, $v) = splice @Apache::TestMM::Argv, 0, 2) {
+ my %args = @Apache::TestMM::Argv;
+ while (my($k, $v) = each %args) {
$v =~ s/\|/\\|/g;
$body .= "\n\$Apache::TestConfig::Argv{'$k'} = q|$v|;\n";
}
