This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[perl #82980] Typo fix in Attribute::Handlers
[perl5.git] / dist / Attribute-Handlers / lib / Attribute / Handlers.pm
index ea11b8f..4f05446 100644 (file)
@@ -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.88'; # 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.88 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