po(mybestlink): fixed when fed with path beginning with /

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

diff --git a/IkiWiki/Plugin/po.pm b/IkiWiki/Plugin/po.pm
index 45ed96c65890020295b712697d63b738f8065a86..03ee9c33c15ab80fa1946ca17d0c902e33acbd8c 100644 (file)
--- a/IkiWiki/Plugin/po.pm
+++ b/IkiWiki/Plugin/po.pm
@@ -391,9 +391,11 @@ sub mybestlink ($$) { #{{{
        my $link=shift;
 
        my $res=$origsubs{'bestlink'}->(masterpage($page), $link);
        my $link=shift;
 
        my $res=$origsubs{'bestlink'}->(masterpage($page), $link);

+       my $normres=$res;
+       $normres=~s#^/##;

        if (length $res
            && ($config{po_link_to} eq "current" || $config{po_link_to} eq "negotiated")
        if (length $res
            && ($config{po_link_to} eq "current" || $config{po_link_to} eq "negotiated")

-           && istranslatable($res)
+           && istranslatable($normres)

            && istranslation($page)) {
                return $res . "." . lang($page);
        }
            && istranslation($page)) {
                return $res . "." . lang($page);
        }