po: memoized istranslatable, eventually

And enjoy a 10% rebuild time enhancement on a complex wiki full of maps and
other pseudo-dynamic content, with some other costly plugins enabled. So it
could well mean 20% on a more usual wiki.

Signed-off-by: intrigeri <intrigeri@boum.org>

diff --git a/IkiWiki/Plugin/po.pm b/IkiWiki/Plugin/po.pm
index 5e2aea6911dfb9415f4c9db69abff5cc9788ce39..a6342c74f93db9f882c043467339b99b2cf04375 100644 (file)
--- a/IkiWiki/Plugin/po.pm
+++ b/IkiWiki/Plugin/po.pm
@@ -23,6 +23,7 @@ my %translations;
 my @origneedsbuild;
 my %origsubs;
 
 my @origneedsbuild;
 my %origsubs;
 

+memoize("istranslatable");

 memoize("_istranslation");
 memoize("percenttranslated");
 
 memoize("_istranslation");
 memoize("percenttranslated");
 


@@ -508,7 +509,8 @@ sub istranslatable ($) { #{{{
        return 0 unless defined $file;
        return 0 if (defined pagetype($file) && pagetype($file) eq 'po');
        return 0 if $file =~ /\.pot$/;
        return 0 unless defined $file;
        return 0 if (defined pagetype($file) && pagetype($file) eq 'po');
        return 0 if $file =~ /\.pot$/;

-       return pagespec_match($page, $config{po_translatable_pages});
+       return 1 if  pagespec_match($page, $config{po_translatable_pages});
+       return;

 } #}}}
 
 sub _istranslation ($) { #{{{
 } #}}}
 
 sub _istranslation ($) { #{{{


@@ -537,8 +539,7 @@ sub istranslation ($) { #{{{
        if (1 < (my ($masterpage, $lang) = _istranslation($page))) {
                my $hasleadingslash = ($masterpage=~s#^/##);
                $translations{$masterpage}{$lang}=$page unless exists $translations{$masterpage}{$lang};
        if (1 < (my ($masterpage, $lang) = _istranslation($page))) {
                my $hasleadingslash = ($masterpage=~s#^/##);
                $translations{$masterpage}{$lang}=$page unless exists $translations{$masterpage}{$lang};

-               return (maybe_add_leading_slash($masterpage, $hasleadingslash), $lang)
-                       if istranslatable($masterpage);
+               return (maybe_add_leading_slash($masterpage, $hasleadingslash), $lang);

        }
        return;
 } #}}}
        }
        return;
 } #}}}


@@ -660,6 +661,7 @@ sub resettranslationscache() { #{{{
 } #}}}
 
 sub flushmemoizecache() { #{{{
 } #}}}
 
 sub flushmemoizecache() { #{{{

+       Memoize::flush_cache("istranslatable");

        Memoize::flush_cache("_istranslation");
        Memoize::flush_cache("percenttranslated");
 } #}}}
        Memoize::flush_cache("_istranslation");
        Memoize::flush_cache("percenttranslated");
 } #}}}