Merge pull request #158 from dubek/first-rest-nil

[jackhill/mal.git] / perl / step6_file.pl

diff --git a/perl/step6_file.pl b/perl/step6_file.pl
index 48b835f..70ec3dd 100644 (file)
--- a/perl/step6_file.pl
+++ b/perl/step6_file.pl
@@ -36,7 +36,7 @@ sub eval_ast {
         }
         when (/^HashMap/) {
             my $new_hm = {};
-            foreach my $k (keys($ast->{val})) {
+            foreach my $k (keys( %{ $ast->{val} })) {
                 $new_hm->{$k} = EVAL($ast->get($k), $env);
             }
             return HashMap->new($new_hm);