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 st...@apache.org on 2005/11/02 00:55:28 UTC
svn commit: r330157 - /perl/Apache-Test/trunk/lib/Apache/TestConfigPerl.pm
Author: stas
Date: Tue Nov 1 15:55:26 2005
New Revision: 330157
URL: http://svn.apache.org/viewcvs?rev=330157&view=rev
Log:
fix: Use of uninitialized value in pattern match (m//)
Modified:
perl/Apache-Test/trunk/lib/Apache/TestConfigPerl.pm
Modified: perl/Apache-Test/trunk/lib/Apache/TestConfigPerl.pm
URL: http://svn.apache.org/viewcvs/perl/Apache-Test/trunk/lib/Apache/TestConfigPerl.pm?rev=330157&r1=330156&r2=330157&view=diff
==============================================================================
--- perl/Apache-Test/trunk/lib/Apache/TestConfigPerl.pm (original)
+++ perl/Apache-Test/trunk/lib/Apache/TestConfigPerl.pm Tue Nov 1 15:55:26 2005
@@ -159,7 +159,7 @@
my $serverroot = $self->{vars}->{serverroot};
my $cover = <<'EOF';
- if ($ENV{HARNESS_PERL_SWITCHES} =~ m/Devel::Cover/) {
+ if (($ENV{HARNESS_PERL_SWITCHES}||'') =~ m/Devel::Cover/) {
eval {
# 0.48 is the first version of Devel::Cover that can
# really generate mod_perl coverage statistics