Merge pull request #1 from gfx/master

A tiny fix on UUV warnings
hanabokuro · Jun 6, 2011 · f4a2c53 · f4a2c53
2 parents 0b04b4d + 0417098
commit f4a2c53
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 5 deletions.
diff --git a/lib/HTML/Template/Parser/TreeWriter/TextXslate/Metakolon.pm b/lib/HTML/Template/Parser/TreeWriter/TextXslate/Metakolon.pm
@@ -54,7 +54,7 @@ sub _pre_Var {
         $src = $self->remove_escape_function($src);
         $is_raw = 0;
     }
-    if(lc($node->escape) eq 'html'){
+    if(lc($node->escape || '') eq 'html'){
         $node->escape(0);
         $is_raw = 0;
     }

diff --git a/script/html-template-converter.pl b/script/html-template-converter.pl
@@ -27,7 +27,6 @@
 
 my $template_text;
 { local $/; $template_text = <>; }
-my $list = $parser->parse($template_text);
-my $tree = $parser->list_to_tree($list);
+my $tree = $parser->parse($template_text);
 my $new_template_text = $writer->write($tree);
 print $new_template_text;
diff --git a/script/html-template-validator.pl b/script/html-template-validator.pl
@@ -12,8 +12,7 @@
 
     eval {
         my $parser = HTML::Template::Parser->new;
-        my $list = $parser->parse($template_text);
-        my $tree = $parser->list_to_tree($list);
+        my $tree   = $parser->parse($template_text);
     };
     if($@){
         my $error = $@;