From: Amitai Schlair Date: Sat, 21 Jan 2012 03:33:27 +0000 (-0500) Subject: Merge branch 'master' into cvs X-Git-Tag: 3.20120202~26^2~9^2^2 X-Git-Url: http://git.vanrenterghem.biz/git.ikiwiki.info.git/commitdiff_plain/12fd902fb1228feb4e23a1f850f215122a4c7e3f?hp=de04fd539805cc38e747ea684ada03d65903e34f Merge branch 'master' into cvs --- diff --git a/IkiWiki.pm b/IkiWiki.pm index 08e242a1f..bc56501da 100644 --- a/IkiWiki.pm +++ b/IkiWiki.pm @@ -2647,8 +2647,14 @@ sub match_link ($$;@) { } sub match_backlink ($$;@) { - my $ret=match_link($_[1], $_[0], @_); - $ret->influences($_[1] => $IkiWiki::DEPEND_LINKS); + my $page=shift; + my $testpage=shift; + my %params=@_; + if ($testpage eq '.') { + $testpage = $params{'location'} + } + my $ret=match_link($testpage, $page, @_); + $ret->influences($testpage => $IkiWiki::DEPEND_LINKS); return $ret; } diff --git a/IkiWiki/Plugin/attachment.pm b/IkiWiki/Plugin/attachment.pm index fd4096edf..5a180cd5c 100644 --- a/IkiWiki/Plugin/attachment.pm +++ b/IkiWiki/Plugin/attachment.pm @@ -272,6 +272,7 @@ sub attachments_save { my @attachments; my $dir=attachment_holding_location($form->field('page')); foreach my $filename (glob("$dir/*")) { + $filename=Encode::decode_utf8($filename); next unless -f $filename; my $destdir=$config{srcdir}."/". linkpage(IkiWiki::possibly_foolish_untaint( @@ -345,6 +346,7 @@ sub attachment_list ($) { my $dir=attachment_holding_location($page); my $heldmsg=gettext("this attachment is not yet saved"); foreach my $file (glob("$dir/*")) { + $file=Encode::decode_utf8($file); next unless -f $file; my $base=IkiWiki::basename($file); my $f=$loc.$base; diff --git a/IkiWiki/Plugin/mdwn.pm b/IkiWiki/Plugin/mdwn.pm index b10d08517..3c3fc9579 100644 --- a/IkiWiki/Plugin/mdwn.pm +++ b/IkiWiki/Plugin/mdwn.pm @@ -25,6 +25,13 @@ sub getsetup () { safe => 1, rebuild => 1, }, + nodiscount => { + type => "boolean", + example => 0, + description => "disable use of markdown discount?", + safe => 1, + rebuild => 1, + }, } my $markdown_sub; @@ -50,14 +57,22 @@ sub htmlize (@) { } } } - if (! defined $markdown_sub) { + if (! defined $markdown_sub && + exists $config{nodiscount} && ! $config{nodiscount}) { eval q{use Text::Markdown::Discount}; if (! $@) { $markdown_sub=sub { + my $t=shift; # Workaround for discount binding bug # https://rt.cpan.org/Ticket/Display.html?id=73657 - return "" if $_[0]=~/^\s*$/; - Text::Markdown::Discount::markdown(@_); + return "" if $t=~/^\s*$/; + # Workaround for discount's eliding + # of