Don't AUTOLOAD DESTROY from Attribute::Handlers.

(patch by Jerry D. Hedden for CPAN bug #1911)

p4raw-id: //depot/perl@29351

diff --git a/lib/Attribute/Handlers.pm b/lib/Attribute/Handlers.pm
index a9ce6b0..197ee6c 100644 (file)
--- a/lib/Attribute/Handlers.pm
+++ b/lib/Attribute/Handlers.pm
@@ -2,7 +2,7 @@ package Attribute::Handlers;
 use 5.006;
 use Carp;
 use warnings;
-$VERSION = '0.78_04';
+$VERSION = '0.78_05';
 # $DB::single=1;
 
 my %symcache;
@@ -100,14 +100,13 @@ sub _resolve_lastattr {
 }
 
 sub AUTOLOAD {
+       return if $AUTOLOAD =~ /::DESTROY$/;
        my ($class) = $AUTOLOAD =~ m/(.*)::/g;
        $AUTOLOAD =~ m/_ATTR_(.*?)_(.*)/ or
            croak "Can't locate class method '$AUTOLOAD' via package '$class'";
        croak "Attribute handler '$2' doesn't handle $1 attributes";
 }
 
-sub DESTROY {}
-
 my $builtin = qr/lvalue|method|locked|unique|shared/;
 
 sub _gen_handler_AH_() {