summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Attribute/Handlers.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Attribute/Handlers.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/Attribute/Handlers.pm27
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