From: Alan Ferrency <alan@pair.com>
Date: Tue, 17 Feb 2004 14:23:08 +0000 (-0500)
Subject: Re: [perl #24338] Attribute::Handlers will trash UNIVERSAL
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=290b54b83d6da552ba07ccf73aa47d172a5ab300;p=p5sagit%2Fp5-mst-13.2.git

Re: [perl #24338] Attribute::Handlers will trash UNIVERSAL
Message-ID: <Pine.BSF.4.58.0402171418090.80983@smx.pair.com>

p4raw-id: //depot/perl@22366
---

diff --git a/lib/Attribute/Handlers.pm b/lib/Attribute/Handlers.pm
index b41a332..74c1c79 100644
--- 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';
+$VERSION = '0.78_01';
 # $DB::single=1;
 
 my %symcache;
@@ -165,9 +165,10 @@ sub _gen_handler_AH_() {
 	}
 }
 
-*{"MODIFY_${_}_ATTRIBUTES"} = _gen_handler_AH_ foreach @{$validtype{ANY}};
-push @UNIVERSAL::ISA, 'Attribute::Handlers'
-	unless grep /^Attribute::Handlers$/, @UNIVERSAL::ISA;
+*{"Attribute::Handlers::UNIVERSAL::MODIFY_${_}_ATTRIBUTES"} =
+       _gen_handler_AH_ foreach @{$validtype{ANY}};
+push @UNIVERSAL::ISA, 'Attribute::Handlers::UNIVERSAL'
+       unless grep /^Attribute::Handlers::UNIVERSAL$/, @UNIVERSAL::ISA;
 
 sub _apply_handler_AH_ {
 	my ($declaration, $phase) = @_;