Author: pgollucci
Date: Tue Dec 5 04:20:28 2006
New Revision: 482619
URL: http://svn.apache.org/viewvc?view=rev&rev=482619
Log:
fix a typo
Modified:
perl/modperl/trunk/lib/Apache2/PerlSections.pm
Modified: perl/modperl/trunk/lib/Apache2/PerlSections.pm
URL:
http://svn.apache.org/viewvc/perl/modperl/trunk/lib/Apache2/PerlSections.pm?view=diff&rev=482619&r1=482618&r2=482619
==============================================================================
--- perl/modperl/trunk/lib/Apache2/PerlSections.pm (original)
+++ perl/modperl/trunk/lib/Apache2/PerlSections.pm Tue Dec 5 04:20: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} defined $ENTRY) {
+ if (defined $val && defined *ENTRY{SCALAR} && defined $ENTRY) {
push @{$self->{symbols}}, [$key, $ENTRY];
}
if (defined $val && defined *ENTRY{ARRAY}) {
