Fix-ups for Attribute::Handlers

It was making unreliable assumptions about the contents of stashes.

diff --git a/dist/Attribute-Handlers/lib/Attribute/Handlers.pm b/dist/Attribute-Handlers/lib/Attribute/Handlers.pm
index 4ae65d9..a0b4af9 100644 (file)
--- a/dist/Attribute-Handlers/lib/Attribute/Handlers.pm
+++ b/dist/Attribute-Handlers/lib/Attribute/Handlers.pm
@@ -13,12 +13,16 @@ sub findsym {
        return $symcache{$pkg,$ref} if $symcache{$pkg,$ref};
        $type ||= ref($ref);
        no strict 'refs';
-        foreach my $sym ( values %{$pkg."::"} ) {
+       my $symtab = \%{$pkg."::"};
+       for ( keys %$symtab ) { for my $sym ( $$symtab{$_} ) {
+           if (ref $sym && $sym == $ref) {
+               return $symcache{$pkg,$ref} = \*{"$pkg:\:$_"};
+           }
            use strict;
            next unless ref ( \$sym ) eq 'GLOB';
             return $symcache{$pkg,$ref} = \$sym
                if *{$sym}{$type} && *{$sym}{$type} == $ref;
-       }
+       }}
 }
 
 my %validtype = (