Fix some small bugs

[plack-app-gruntmaster.git] / lib / Gruntmaster / Page.pm

diff --git a/lib/Gruntmaster/Page.pm b/lib/Gruntmaster/Page.pm
index 6ca62ddd5ce18cef705e2173e3b93bbf35a2cb9d..5a6ed681eb835fcf214e7a70f322ad12ce22fc15 100644 (file)
--- a/lib/Gruntmaster/Page.pm
+++ b/lib/Gruntmaster/Page.pm
@@ -41,7 +41,7 @@ sub declaregen{
        declaregen 'Log::Entry' => qr,^${contest}log/$component/index$,;
        declaregen Submit                       => qr,^${contest}submit$,;
        declaregen Pb                           => qr,^${contest}pb/index$,;
-       declaregen 'Pb::Entry'          => qr,^${contest}pb/$component/index$,;
+       declaregen 'Pb::Entry'          => qr,^${contest}pb/$component$,;
 }
 
 sub generate{
@@ -63,6 +63,7 @@ sub generate{
                        gzip \$page => "$path_noext.$lang.gz.$ext.new", Minimal => 1;
                        say $typemap "URI: $basename.$lang.gz.$ext\nContent-Language: $lang\nContent-Encoding: gzip\nContent-Type: " . CONTENT_TYPES->{$ext} . "\n";
                }
+               last
        }
 
        for my $lang (@{LANGUAGES()}) {