[prev in list] [next in list] [prev in thread] [next in thread] 

List:       apache-test-cvs
Subject:    cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestMM.pm TestRun.pm
From:       stas () apache ! org
Date:       2004-04-16 19:47:42
Message-ID: 20040416194742.82189.qmail () minotaur ! apache ! org
[Download RAW message or body]

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";
       }
  
  
  
[prev in list] [next in list] [prev in thread] [next in thread]