* Text::Dokuwiki::Render::Markdown : 'pre' tag

lib/Text/Dokuwiki/Render/Markdown.pm

@@ -114,7 +114,9 @@ sub blockquote {
 sub pre {
   my ($self, $attrs, $content) = @_;
 
-  return "<pre>\n$content\n</pre>\n";
+  my @lines = map { "    $_" } split(/\r?\n/o, $content);
+
+  return join("\n", @lines);
 }
 
 1;