From 38d28ff3404ceb29b7f8e3804b7bab54a8470cd0 Mon Sep 17 00:00:00 2001
From: Zubrikhin Alexey <zubrihin@v-lazer.com>
Date: Fri, 26 Jun 2015 14:31:20 +1000
Subject: [PATCH] * Text::Dokuwiki::Render::Markdown : 'pre' tag

---
 lib/Text/Dokuwiki/Render/Markdown.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lib/Text/Dokuwiki/Render/Markdown.pm b/lib/Text/Dokuwiki/Render/Markdown.pm
index 5c0f79d..ef46858 100644
--- a/lib/Text/Dokuwiki/Render/Markdown.pm
+++ b/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;