[Text::Markup::Wiki::MediaWiki] fixed a bug

Spaces are now allowed in internal links. Closes #14.
viklund · Jun 23, 2009 · 43c37cb · 43c37cb
1 parent 660b30c
commit 43c37cb
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 2 deletions.
diff --git a/lib/November.pm b/lib/November.pm
@@ -329,7 +329,8 @@ class November does Session does Cache {
         $.cgi.send_response($template.output, %opts);
     }
 
-    method make_link($page, $title) {
+    method make_link($page is copy, $title) {
+        $page .= subst(' ', '_', :g);
         my $root = $!config.web_root;
         if $title {
             if $page ~~ m/':'/ {

diff --git a/lib/Text/Markup/Wiki/MediaWiki.pm b/lib/Text/Markup/Wiki/MediaWiki.pm
@@ -8,7 +8,7 @@ grammar Tokenizer {
     regex italic_marker { '&#039;&#039;' }
 
     regex wikilink { '[[' \s*  <page> \s* ']]' }
-    regex page { [<!before ']]'> \S]+ }
+    regex page { [<!before ']]'> \N]+<!after \s> }
 
     regex extlink { '[' \s* <url> [\s+ <title>]? \s* ']' }
     regex url { [<!before ']'> \S]+ }

diff --git a/t/markup/mediawiki/06-links.t b/t/markup/mediawiki/06-links.t
@@ -9,6 +9,7 @@ my $converter = Text::Markup::Wiki::MediaWiki.new;
 my $link_maker = {
     my $l = $^page.ucfirst;
     my $t = $^title // $^page;
+    $l .= subst(' ', '_', :g);
     "<a href=\"/?page=$l\">$t</a>"
 }
 my $extlink_maker = { "<a href=\"$^href\">$^title</a>" }