Fix keys on reference is experimental warning

diff --git a/lib/Plack/App/Gruntmaster/HTML.pm b/lib/Plack/App/Gruntmaster/HTML.pm
index 3306be2100508109375494120dfba633ef897bdd..dc74d87dd2b952a9a4f8ae2da91152e434dce368 100644 (file)
--- a/lib/Plack/App/Gruntmaster/HTML.pm
+++ b/lib/Plack/App/Gruntmaster/HTML.pm
@@ -238,7 +238,7 @@ sub process_log {
                my $elem = $tree->fclass($cls);
                next unless $elem;
                delete $args{args}{page};
-               my $str = join '&', map { $_ . '=' . $args{args}{$_} } keys $args{args};
+               my $str = join '&', map { $_ . '=' . $args{args}{$_} } keys %{$args{args}};
                $elem->find('a')->edit_href(sub{s/$/&$str/});
        }
        $tree->fclass('current')->replace_content("Page $args{current_page} of $args{last_page}");