From: Yuval Kogman <nothingmuch@woobling.org>
Date: Fri, 22 Aug 2008 03:33:04 +0000 (+0000)
Subject: fix 5.8.2 mystery breakage
X-Git-Tag: 0.64_03~1
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=33f5d8ecd0e065b90c6e4763c1933cd108bb8509;p=gitmo%2FClass-MOP.git

fix 5.8.2 mystery breakage
---

diff --git a/lib/Class/MOP/Package.pm b/lib/Class/MOP/Package.pm
index 06b88d2..7a64096 100644
--- a/lib/Class/MOP/Package.pm
+++ b/lib/Class/MOP/Package.pm
@@ -287,9 +287,9 @@ sub get_all_package_symbols {
         return map {
             (ref($namespace->{$_})
                 ? ( $_ => \&{$pkg ||= $self->name . "::$_"} )
-                : ( *{$namespace->{$_}}{CODE}
-                    ? ( $_ => *{$namespace->{$_}}{$type_filter} )
-                    : ()))
+                : ( (*{$namespace->{$_}}{CODE}) # the extra parents prevent breakage on 5.8.2
+                    ? ( $_ => *{$namespace->{$_}}{CODE} )
+                    : () ) )
         } keys %$namespace;
     } else {
         return map {