httpd-test-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestMM.pm TestRun.pm
Date Wed, 26 Mar 2003 07:11:34 GMT
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(\@ARGV);";
  +    $body .= join "\n",
  +        $header, "use $class ();", "$class->new->run(\@ARGV);";
   
  -    Apache::Test::config()->write_perlscript($file, $content);
  +    Apache::Test::config()->write_perlscript($file, $body);
   }
   
   # in idiomatic perl functions return 1 on success 0 on
  
  
  

Mime
View raw message