Change 29351: Don't AUTOLOAD DESTROY from Attribute::Handlers.

[Rafael Garcia-Suarez]

Change 29351 by [EMAIL PROTECTED] on 2006/11/22 15:17:54

        Don't AUTOLOAD DESTROY from Attribute::Handlers.
        (patch by Jerry D. Hedden for CPAN bug #1911)

Affected files ...

... //depot/perl/lib/Attribute/Handlers.pm#26 edit

Differences ...

==== //depot/perl/lib/Attribute/Handlers.pm#26 (text) ====
Index: perl/lib/Attribute/Handlers.pm
--- perl/lib/Attribute/Handlers.pm#25~29243~    2006-11-09 07:58:11.000000000 
-0800
+++ perl/lib/Attribute/Handlers.pm      2006-11-22 07:17:54.000000000 -0800
@@ -2,7 +2,7 @@
 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 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_() {
End of Patch.