po(myurlto): more robust run_by_editpage logic

Signed-off-by: intrigeri <intrigeri@boum.org>
master
intrigeri 2009-01-01 01:14:06 +01:00
parent 37b8822762
commit 5412a95fd0
1 changed files with 3 additions and 1 deletions

View File

@ -483,7 +483,9 @@ sub myurlto ($$;$) {
# avoid, i.e. when po_link_to = negotiated
if ($config{po_link_to} eq "negotiated") {
my @caller = caller(1);
my $run_by_editpage = ($caller[3] eq "IkiWiki::cgi_editpage");
my $run_by_editpage = 0;
$run_by_editpage = 1 if (exists $caller[3] && defined $caller[3]
&& $caller[3] eq "IkiWiki::cgi_editpage");
inject(name => "IkiWiki::beautify_urlpath", call => $origsubs{'beautify_urlpath'})
if $run_by_editpage;
my $res = $origsubs{'urlto'}->($to,$from,$absolute);