This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[rt.cpan.org #79109] Avoid each $scalar in TieHashDelta.pm
authorFather Chrysostomos <sprout@cpan.org>
Tue, 21 Aug 2012 15:24:16 +0000 (08:24 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Tue, 21 Aug 2012 15:24:48 +0000 (08:24 -0700)
This is dual-life, after all.

dist/Module-CoreList/lib/Module/CoreList/TieHashDelta.pm

index dead99e..63986e2 100644 (file)
@@ -68,7 +68,7 @@ sub FIRSTKEY {
 
 sub NEXTKEY {
     my ($self) = @_;
-    each $self->{changed};
+    each %{$self->{changed}};
 }
 
 1;