Author: pgollucci
Date: Tue Dec 5 03:23:28 2006
New Revision: 482600
URL: http://svn.apache.org/viewvc?view=rev&rev=482600
Log:
without this, sydump() returned things like:
[
'PerlConfig',
undef
],
[
'Alias',
undef
],
[
'Location',
undef
],
Modified:
perl/modperl/trunk/Changes
perl/modperl/trunk/lib/Apache2/PerlSections.pm
Modified: perl/modperl/trunk/Changes
URL:
http://svn.apache.org/viewvc/perl/modperl/trunk/Changes?view=diff&rev=482600&r1=482599&r2=482600
==============================================================================
--- perl/modperl/trunk/Changes (original)
+++ perl/modperl/trunk/Changes Tue Dec 5 03:23:28 2006
@@ -12,6 +12,10 @@
=item 2.0.4-dev
+Prevent Apache2::PerSections::symdump() from returning invalid
+httpd.conf snippets like 'Alias undef'
+[Philip M. Gollucci <[EMAIL PROTECTED]>]
+
Require B-Size 0.9 for Apache2::Status which fixes
Can't call method "script_name" on an undefined value
[Philip M. Gollucci <[EMAIL PROTECTED]>]
Modified: perl/modperl/trunk/lib/Apache2/PerlSections.pm
URL:
http://svn.apache.org/viewvc/perl/modperl/trunk/lib/Apache2/PerlSections.pm?view=diff&rev=482600&r1=482599&r2=482600
==============================================================================
--- perl/modperl/trunk/lib/Apache2/PerlSections.pm (original)
+++ perl/modperl/trunk/lib/Apache2/PerlSections.pm Tue Dec 5 03:23:28 2006
@@ -95,7 +95,7 @@
#We don't want to pick up stashes...
next if ($key =~ /::$/);
local (*ENTRY) = $val;
- if (defined $val && defined *ENTRY{SCALAR}) {
+ if (defined $val && defined *ENTRY{SCALAR} defined $ENTRY) {
push @{$self->{symbols}}, [$key, $ENTRY];
}
if (defined $val && defined *ENTRY{ARRAY}) {
