From 54128f3798cc4a95a5d211263ddab780f0f92b6f Mon Sep 17 00:00:00 2001
From: Zubrikhin Alexey <zubrihin@v-lazer.com>
Date: Mon, 13 Apr 2015 11:37:10 +1000
Subject: [PATCH] * fix warnings

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

diff --git a/lib/Text/Dokuwiki.pm b/lib/Text/Dokuwiki.pm
index 3cfb2a8..0ee0617 100644
--- a/lib/Text/Dokuwiki.pm
+++ b/lib/Text/Dokuwiki.pm
@@ -36,7 +36,7 @@ sub parse {
           } else {
             push @{ $tree }, [code => {class => $attrs->{class}}, 0 => $buf];
           }
-          ($buf, $attrs, $mode) = ('', {}, undef); next;
+          ($buf, $mode, $attrs) = ('', '', {}); next;
         }
         $buf .= $line . "\n";
       }
@@ -45,7 +45,7 @@ sub parse {
           $buf .= $line . "\n"; next;
         } else {
           push @{ $tree }, [pre => {}, 0 => $buf];
-          ($buf, $attrs, $mode) = ('', {}, undef); continue;
+          ($buf, $mode, $attrs) = ('', '', {}); continue;
         }
       }
       when ("list") {
@@ -54,7 +54,7 @@ sub parse {
           next;
         } else {
           push @{ $tree }, [ul => {}, @$buf]; # TODO: lost list type
-          ($buf, $attrs, $mode) = ('', {}, undef); continue;
+          ($buf, $mode, $attrs) = ('', '', {}); continue;
         }
       }
       when ("table") {
@@ -115,7 +115,7 @@ sub parse {
       # empty lines;
       when (m/^\s*$/) {
         push @{ $tree }, [br => {}];
-        $mode = undef;
+        $mode = '';
         next;
       }
       # catchall