more cleanup of legacy reduce function

diff --git a/META.json b/META.json

index bc6c646..331a418 100644 (file)
--- a/META.json
+++ b/META.json
@@ -4,7 +4,7 @@
       "Dan Book <dbook@cpan.org>"
    ],
    "dynamic_config" : 0,
-   "generated_by" : "Dist::Zilla version 5.043, CPAN::Meta::Converter version 2.150001",
+   "generated_by" : "Dist::Zilla version 5.043, CPAN::Meta::Converter version 2.150005",
    "license" : [
       "artistic_2"
    ],
@@ -61,11 +61,11 @@
    "provides" : {
       "DOM::Tiny" : {
          "file" : "lib/DOM/Tiny.pm",
-         "version" : "0.003"
+         "version" : "0.004"
       },
       "DOM::Tiny::Entities" : {
          "file" : "lib/DOM/Tiny/Entities.pm",
-         "version" : "0.003"
+         "version" : "0.004"
       }
    },
    "release_status" : "stable",
@@ -76,9 +76,10 @@
          "web" : "http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits/DOM-Tiny.git"
       }
    },
-   "version" : "0.003",
+   "version" : "0.004",
    "x_contributors" : [
-      "Dan Book <grinnz@grinnz.com>"
+      "Dan Book <grinnz@grinnz.com>",
+      "Matt S Trout <mst@shadowcat.co.uk>"
    ]
 }
 
diff --git a/Makefile.PL b/Makefile.PL

index dd69f3d..86a2247 100644 (file)
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -27,7 +27,7 @@ my %WriteMakefileArgs = (
     "JSON::PP" => 0,
     "Test::More" => "0.88"
   },
-  "VERSION" => "0.003",
+  "VERSION" => "0.004",
   "test" => {
     "TESTS" => "t/*.t"
   }
diff --git a/lib/DOM/Tiny/Entities.pm b/lib/DOM/Tiny/Entities.pm

index 2ed8d70..0d442f5 100644 (file)
--- a/lib/DOM/Tiny/Entities.pm
+++ b/lib/DOM/Tiny/Entities.pm
@@ -86,7 +86,7 @@ Escape unsafe characters C<&>, C<< < >>, C<< > >>, C<">, and C<'> in string.
 Unescape all HTML entities in string, according to the
 L<HTML Living Standard|https://html.spec.whatwg.org/#named-character-references-table>.
 
- html_unescape '&lt;div&gt; # "<div>"
+ html_unescape '&lt;div&gt'; # "<div>"
 
 =head1 BUGS
 
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->();
   }
META.json		patch \| blob \| blame \| history
Makefile.PL		patch \| blob \| blame \| history
lib/DOM/Tiny/Entities.pm		patch \| blob \| blame \| history
lib/DOM/Tiny/_Collection.pm		patch \| blob \| blame \| history