You are viewing a plain text version of this content. The canonical link for it is here.
Posted to test-commits@perl.apache.org by ge...@apache.org on 2005/11/30 20:06:46 UTC
svn commit: r350018 - /perl/Apache-Test/trunk/lib/Apache/TestMM.pm
Author: geoff
Date: Wed Nov 30 11:06:44 2005
New Revision: 350018
URL: http://svn.apache.org/viewcvs?rev=350018&view=rev
Log:
be rid of
Can't use string ("Apache::TestMM") as a HASH ref
error
Modified:
perl/Apache-Test/trunk/lib/Apache/TestMM.pm
Modified: perl/Apache-Test/trunk/lib/Apache/TestMM.pm
URL: http://svn.apache.org/viewcvs/perl/Apache-Test/trunk/lib/Apache/TestMM.pm?rev=350018&r1=350017&r2=350018&view=diff
==============================================================================
--- perl/Apache-Test/trunk/lib/Apache/TestMM.pm (original)
+++ perl/Apache-Test/trunk/lib/Apache/TestMM.pm Wed Nov 30 11:06:44 2005
@@ -53,7 +53,12 @@
sub test {
my $self = shift;
my $env = Apache::TestConfig->passenv_makestr();
- my $tests = 'TEST_FILES = ' . (exists $self->{'test'} ? $self->{'test'}->{'TESTS'} : '') . "\n";
+
+ my $tests = "TEST_FILES =\n";
+
+ if (ref $self && exists $self->{'test'}) {
+ $tests = 'TEST_FILES = ' . $self->{'test'}->{'TESTS'} . "\n";
+ }
my $preamble = Apache::TestConfig::WIN32 ? "" : <<EOF;
PASSENV = $env