From: Arthur Bergman <arthur@contiller.se>
Date: Tue, 16 Apr 2002 11:58:45 +0000 (+0200)
Subject: Flaw in Attribute::Handlers 0.76
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ba690e3299357f01ba3a8cb5887c44f0790a0c35;p=p5sagit%2Fp5-mst-13.2.git

Flaw in Attribute::Handlers 0.76
Message-Id: <8A74F82C-5120-11D6-AEA5-003065D64CBE@contiller.se>

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

diff --git a/lib/Attribute/Handlers.pm b/lib/Attribute/Handlers.pm
index 78acbdb..3afccd5 100644
--- a/lib/Attribute/Handlers.pm
+++ b/lib/Attribute/Handlers.pm
@@ -192,13 +192,19 @@ sub _apply_handler_AH_ {
 	return 1;
 }
 
-CHECK {
-	$global_phase++;
-	_resolve_lastattr;
-	_apply_handler_AH_($_,'CHECK') foreach @declarations;
-}
+{
+        no warnings 'void';
+        CHECK {
+               $global_phase++;
+               _resolve_lastattr;
+               _apply_handler_AH_($_,'CHECK') foreach @declarations;
+        }
 
-INIT { $global_phase++; _apply_handler_AH_($_,'INIT') foreach @declarations }
+        INIT {
+                $global_phase++;
+                _apply_handler_AH_($_,'INIT') foreach @declarations
+        }
+}
 
 END { $global_phase++; _apply_handler_AH_($_,'END') foreach @declarations }