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
