perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@apache.org
Subject cvs commit: modperl-2.0/Apache-Test/lib/Apache TestConfig.pm TestMM.pm
Date Mon, 02 Apr 2001 20:07:44 GMT
dougm       01/04/02 13:07:43

  Modified:    Apache-Test/lib/Apache TestConfig.pm TestMM.pm
  Log:
  passenv_makestr might be useful to those building a "make test" target without MakeMaker
  
  Revision  Changes    Path
  1.3       +10 -0     modperl-2.0/Apache-Test/lib/Apache/TestConfig.pm
  
  Index: TestConfig.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/Apache-Test/lib/Apache/TestConfig.pm,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- TestConfig.pm	2001/04/02 18:36:23	1.2
  +++ TestConfig.pm	2001/04/02 20:07:38	1.3
  @@ -49,6 +49,16 @@
       \%passenv;
   }
   
  +sub passenv_makestr {
  +    my @vars;
  +
  +    for (keys %passenv) {
  +        push @vars, "$_=\$($_)";
  +    }
  +
  +    "@vars";
  +}
  +
   sub server { shift->{server} }
   
   sub build_config {
  
  
  
  1.2       +1 -12     modperl-2.0/Apache-Test/lib/Apache/TestMM.pm
  
  Index: TestMM.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/Apache-Test/lib/Apache/TestMM.pm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- TestMM.pm	2001/04/02 09:01:00	1.1
  +++ TestMM.pm	2001/04/02 20:07:39	1.2
  @@ -17,20 +17,9 @@
       }
   }
   
  -sub passenv {
  -    my $passenv = Apache::TestConfig->passenv;
  -    my @vars;
  -
  -    for (keys %$passenv) {
  -        push @vars, "$_=\$($_)";
  -    }
  -
  -    "@vars";
  -}
  -
   sub test {
   
  -    my $env = passenv();
  +    my $env = Apache::TestConfig->passenv_makestr();
   
       my $preamble = <<EOF;
   PASSENV = $env
  
  
  

Mime
View raw message