diff options
| author | Arthur Bergman <arthur@contiller.se> | 2002-04-16 13:58:45 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-04-16 11:57:45 +0000 |
| commit | ba690e3299357f01ba3a8cb5887c44f0790a0c35 (patch) | |
| tree | a3a84aff70bfcf93a4a7436620e6e44d1c16c2bf /lib/Attribute | |
| parent | d8416318460c9d88f9f5c6724f0703dd06d3d6a9 (diff) | |
| download | perl-ba690e3299357f01ba3a8cb5887c44f0790a0c35.tar.gz | |
Flaw in Attribute::Handlers 0.76
Message-Id: <8A74F82C-5120-11D6-AEA5-003065D64CBE@contiller.se>
p4raw-id: //depot/perl@15945
Diffstat (limited to 'lib/Attribute')
| -rw-r--r-- | lib/Attribute/Handlers.pm | 18 |
1 files changed, 12 insertions, 6 deletions
diff --git a/lib/Attribute/Handlers.pm b/lib/Attribute/Handlers.pm index 78acbdb8f7..3afccd56e9 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 } |