From 0f886920e9862f0000d2e1438f1e4784e7913929 Mon Sep 17 00:00:00 2001
From: Alex 'AdUser' Z <ad_user@runbox.com>
Date: Fri, 15 May 2015 15:06:08 +1000
Subject: [PATCH] = parse()

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

diff --git a/lib/Text/Dokuwiki/Parser.pm b/lib/Text/Dokuwiki/Parser.pm
index de71a7f..e264acf 100644
--- a/lib/Text/Dokuwiki/Parser.pm
+++ b/lib/Text/Dokuwiki/Parser.pm
@@ -284,24 +284,24 @@ sub parse {
       # nowiki block
       $mode = "block/nowiki";
       next;
-    } elsif ($line = m/^(\s{2})+([\*-])\s+(.+)/o) {
+    } elsif ($line =~ m/^(\s{2})+([\*-])\s+(.+)/o) {
       # lists
       $mode = 'list';
       $buf  = [];
       push @{ $buf }, $line;
       next;
-    } elsif ($line = m/^\s?(>)+\s*(.+)/o) {
+    } elsif ($line =~ m/^\s?(>)+\s*(.+)/o) {
       # quotes
       my $level = $1 =~ tr/>/>/;
       push @tree, [blockquote => {level => $level}, $2];
       next;
-    } elsif ($line = m/^\s?[\|\^]/o) {
+    } elsif ($line =~ m/^\s?[\|\^]/o) {
       # table
       $mode = 'table';
       $buf = [];
       push @{ $buf }, $line;
       next;
-    } elsif ($line = m/^\s{2}(\S.+)/o) {
+    } elsif ($line =~ m/^\s{2}(\S.+)/o) {
       # code idented with two spaces
       $mode = 'code';
       $buf = $line . "\n";