[rt.cpan.org #79109] Avoid each $scalar in TieHashDelta.pm

This is dual-life, after all.

diff --git a/dist/Module-CoreList/lib/Module/CoreList/TieHashDelta.pm b/dist/Module-CoreList/lib/Module/CoreList/TieHashDelta.pm
index dead99e..63986e2 100644 (file)
--- a/dist/Module-CoreList/lib/Module/CoreList/TieHashDelta.pm
+++ b/dist/Module-CoreList/lib/Module/CoreList/TieHashDelta.pm
@@ -68,7 +68,7 @@ sub FIRSTKEY {
 
 sub NEXTKEY {
     my ($self) = @_;
-    each $self->{changed};
+    each %{$self->{changed}};
 }
 
 1;