diff options
author | Karl Berry <karl@freefriends.org> | 2012-05-21 00:15:27 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2012-05-21 00:15:27 +0000 |
commit | a4c42bfb2337d37da89d789cb8cc226367994e32 (patch) | |
tree | c3eabdef5d565a4e515d2be0d9d4d0540bde0250 /Master/tlpkg/tlperl/lib/Attribute | |
parent | 8274475057f024d35332ac47c2e2f23ea156e6ed (diff) |
perl 5.14.2 from siep
git-svn-id: svn://tug.org/texlive/trunk@26525 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Attribute')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Attribute/Handlers.pm | 27 |
1 files changed, 18 insertions, 9 deletions
diff --git a/Master/tlpkg/tlperl/lib/Attribute/Handlers.pm b/Master/tlpkg/tlperl/lib/Attribute/Handlers.pm index ea11b8f7ed6..b0cb8e21af6 100644 --- a/Master/tlpkg/tlperl/lib/Attribute/Handlers.pm +++ b/Master/tlpkg/tlperl/lib/Attribute/Handlers.pm @@ -4,7 +4,7 @@ use Carp; use warnings; use strict; use vars qw($VERSION $AUTOLOAD); -$VERSION = '0.87'; # remember to update version in POD! +$VERSION = '0.89'; # remember to update version in POD! # $DB::single=1; my %symcache; @@ -235,18 +235,27 @@ sub _apply_handler_AH_ { { no warnings 'void'; CHECK { - $global_phase++; - _resolve_lastattr if _delayed_name_resolution; - _apply_handler_AH_($_,'CHECK') foreach @declarations; + $global_phase++; + _resolve_lastattr if _delayed_name_resolution; + foreach my $decl (@declarations) { + _apply_handler_AH_($decl, 'CHECK'); + } } INIT { $global_phase++; - _apply_handler_AH_($_,'INIT') foreach @declarations + foreach my $decl (@declarations) { + _apply_handler_AH_($decl, 'INIT'); + } } } -END { $global_phase++; _apply_handler_AH_($_,'END') foreach @declarations } +END { + $global_phase++; + foreach my $decl (@declarations) { + _apply_handler_AH_($decl, 'END'); + } +} 1; __END__ @@ -257,8 +266,8 @@ Attribute::Handlers - Simpler definition of attribute handlers =head1 VERSION -This document describes version 0.87 of Attribute::Handlers, -released September 21, 2009. +This document describes version 0.89 of Attribute::Handlers, +released April 5, 2010. =head1 SYNOPSIS @@ -849,7 +858,7 @@ C<$referent>, which is a reference to a variable or subroutine (SCALAR, ARRAY, HASH, or CODE). If it finds the typeglob, it returns it. Otherwise, it returns undef. Note that C<findsym> memoizes the typeglobs it has previously successfully found, so subsequent calls with the same arguments should be -must faster. +much faster. =back |