From: Marius Gavrilescu Date: Sun, 25 Jan 2015 21:21:12 +0000 (+0200) Subject: Fix keys on reference is experimental warning X-Git-Url: http://git.ieval.ro/?p=gruntmaster-page.git;a=commitdiff_plain;h=418101af1d14d3dfe15748186b18072308bd1a5b Fix keys on reference is experimental warning --- diff --git a/lib/Plack/App/Gruntmaster/HTML.pm b/lib/Plack/App/Gruntmaster/HTML.pm index 3306be2..dc74d87 100644 --- 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}");