more cleanup of legacy reduce function

[catagits/DOM-Tiny.git] / lib / DOM / Tiny / _Collection.pm

diff --git a/lib/DOM/Tiny/_Collection.pm b/lib/DOM/Tiny/_Collection.pm
index da649dd..547946c 100644 (file)
--- a/lib/DOM/Tiny/_Collection.pm
+++ b/lib/DOM/Tiny/_Collection.pm
@@ -116,12 +116,11 @@ sub _reduce (&@) {
 
   no strict 'refs';
 
-  local(*{$caller."::a"}) = \my $x;
-  local(*{$caller."::b"}) = \my $y;
+  local (*{"${caller}::a"}, *{"${caller}::b"}) = (\my $x, \my $y);
 
   $x = shift;
-  foreach (@_) {
-    $y = $_;
+  foreach my $e (@_) {
+    $y = $e;
     $x = $code->();
   }