Update Attribute-Handlers to CPAN version 0.88

  [DELTA]

  0.88    Mon Apr  5 16:33:00 CET 2010
        - Avoid clobbering $_ (perl #74052, LanX)

13 files changed, 21 insertions, 8 deletions

diff --git a/dist/Attribute-Handlers/Changes b/dist/Attribute-Handlers/Changes
index f91fa607a8..eea99c330d 100644
--- a/dist/Attribute-Handlers/Changes
+++ b/dist/Attribute-Handlers/Changes
@@ -153,3 +153,7 @@ t Revision history for Perl extension Attribute-Handlers
 
 0.87	Mon Sep 21 15:55:00 CET 2009
         - Promote to stable release
+
+0.88	Mon Apr  5 16:33:00 CET 2010
+	- Avoid clobbering $_ (perl #74052, LanX)
+
diff --git a/dist/Attribute-Handlers/demo/demo.pl b/dist/Attribute-Handlers/demo/demo.pl
index 23c8334c0b..23c8334c0b 100755..100644
--- a/dist/Attribute-Handlers/demo/demo.pl
+++ b/dist/Attribute-Handlers/demo/demo.pl
diff --git a/dist/Attribute-Handlers/demo/demo2.pl b/dist/Attribute-Handlers/demo/demo2.pl
index 46ed594225..46ed594225 100755..100644
--- a/dist/Attribute-Handlers/demo/demo2.pl
+++ b/dist/Attribute-Handlers/demo/demo2.pl
diff --git a/dist/Attribute-Handlers/demo/demo3.pl b/dist/Attribute-Handlers/demo/demo3.pl
index 6760fc08ba..6760fc08ba 100755..100644
--- a/dist/Attribute-Handlers/demo/demo3.pl
+++ b/dist/Attribute-Handlers/demo/demo3.pl
diff --git a/dist/Attribute-Handlers/demo/demo4.pl b/dist/Attribute-Handlers/demo/demo4.pl
index 22d9fd983b..22d9fd983b 100755..100644
--- a/dist/Attribute-Handlers/demo/demo4.pl
+++ b/dist/Attribute-Handlers/demo/demo4.pl
diff --git a/dist/Attribute-Handlers/demo/demo_call.pl b/dist/Attribute-Handlers/demo/demo_call.pl
index 1a97342116..1a97342116 100755..100644
--- a/dist/Attribute-Handlers/demo/demo_call.pl
+++ b/dist/Attribute-Handlers/demo/demo_call.pl
diff --git a/dist/Attribute-Handlers/demo/demo_chain.pl b/dist/Attribute-Handlers/demo/demo_chain.pl
index 8999c1ccc7..8999c1ccc7 100755..100644
--- a/dist/Attribute-Handlers/demo/demo_chain.pl
+++ b/dist/Attribute-Handlers/demo/demo_chain.pl
diff --git a/dist/Attribute-Handlers/demo/demo_cycle.pl b/dist/Attribute-Handlers/demo/demo_cycle.pl
index 5f307a7036..5f307a7036 100755..100644
--- a/dist/Attribute-Handlers/demo/demo_cycle.pl
+++ b/dist/Attribute-Handlers/demo/demo_cycle.pl
diff --git a/dist/Attribute-Handlers/demo/demo_hashdir.pl b/dist/Attribute-Handlers/demo/demo_hashdir.pl
index 75e252b1a0..75e252b1a0 100755..100644
--- a/dist/Attribute-Handlers/demo/demo_hashdir.pl
+++ b/dist/Attribute-Handlers/demo/demo_hashdir.pl
diff --git a/dist/Attribute-Handlers/demo/demo_phases.pl b/dist/Attribute-Handlers/demo/demo_phases.pl
index 022f7e1537..022f7e1537 100755..100644
--- a/dist/Attribute-Handlers/demo/demo_phases.pl
+++ b/dist/Attribute-Handlers/demo/demo_phases.pl
diff --git a/dist/Attribute-Handlers/demo/demo_range.pl b/dist/Attribute-Handlers/demo/demo_range.pl
index b63d518ee5..b63d518ee5 100755..100644
--- a/dist/Attribute-Handlers/demo/demo_range.pl
+++ b/dist/Attribute-Handlers/demo/demo_range.pl
diff --git a/dist/Attribute-Handlers/demo/demo_rawdata.pl b/dist/Attribute-Handlers/demo/demo_rawdata.pl
index c0754f06a9..c0754f06a9 100755..100644
--- a/dist/Attribute-Handlers/demo/demo_rawdata.pl
+++ b/dist/Attribute-Handlers/demo/demo_rawdata.pl
diff --git a/dist/Attribute-Handlers/lib/Attribute/Handlers.pm b/dist/Attribute-Handlers/lib/Attribute/Handlers.pm
index ea11b8f7ed..db1b18589d 100644
--- a/dist/Attribute-Handlers/lib/Attribute/Handlers.pm
+++ b/dist/Attribute-Handlers/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.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