perl-test-commits mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject svn commit: r330157 - /perl/Apache-Test/trunk/lib/Apache/TestConfigPerl.pm
Date Tue, 01 Nov 2005 23:55:28 GMT
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



Mime
View raw message