From 53e6f1ac44993d49be7810e4b14ac7a85d76ca85 Mon Sep 17 00:00:00 2001
From: Alex 'AdUser' Z <ad_user@runbox.com>
Date: Tue, 14 Jul 2015 23:26:48 +1000
Subject: [PATCH] * parser now understands hrule

---
 lib/Text/Dokuwiki/Parser.pm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lib/Text/Dokuwiki/Parser.pm b/lib/Text/Dokuwiki/Parser.pm
index b5de9a4..9db22db 100644
--- a/lib/Text/Dokuwiki/Parser.pm
+++ b/lib/Text/Dokuwiki/Parser.pm
@@ -236,6 +236,8 @@ sub parse {
       my $level = length($+{line});
       $level = 7 - $level; # invert
       push @tree, ["h$level" => {}, $+{header}];
+    } elsif ($text =~ m/\G$rx->{hrule}/cgi) {
+      push @tree, [hr => {}];
     } elsif ($text =~ m/\G$rx->{codeblock}/cgi) {
       my $attrs = {};
       $attrs->{type}   = $+{tag};