avoid clobbering origsub if checkconfig runs more than once

[git.ikiwiki.info.git] / IkiWiki / Plugin / po.pm

diff --git a/IkiWiki/Plugin/po.pm b/IkiWiki/Plugin/po.pm
index 55c1c32c64f24c563b40d17e8249163b2d8b36c5..cde2ad4e3a7c4333285584c324525b754fe9d8c8 100644 (file)
--- a/IkiWiki/Plugin/po.pm
+++ b/IkiWiki/Plugin/po.pm
@@ -152,8 +152,10 @@ sub checkconfig () {
                $config{po_link_to}='default';
        }
        unless ($config{po_link_to} eq 'default') {
                $config{po_link_to}='default';
        }
        unless ($config{po_link_to} eq 'default') {

-               $origsubs{'bestlink'}=\&IkiWiki::bestlink;
-               inject(name => "IkiWiki::bestlink", call => \&mybestlink);
+               if (! exists $origsubs{'bestlink'}) {
+                       $origsubs{'bestlink'}=\&IkiWiki::bestlink;
+                       inject(name => "IkiWiki::bestlink", call => \&mybestlink);
+               }

        }
 
        push @{$config{wiki_file_prune_regexps}}, qr/\.pot$/;
        }
 
        push @{$config{wiki_file_prune_regexps}}, qr/\.pot$/;