stop recursion warnings in Mojo::DOM and Mojo::DOM::HTML

mojolicious · Jul 13, 2014 · 28458bb · 28458bb
1 parent c27c103
commit 28458bb
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 0 deletions.
diff --git a/lib/Mojo/DOM.pm b/lib/Mojo/DOM.pm
@@ -311,6 +311,8 @@ sub _tag { shift->new->tree(shift)->xml(shift) }
 sub _text {
   my ($nodes, $recurse, $trim) = @_;
 
+  no warnings 'recursion';
+
   # Merge successive text nodes
   my $i = 0;
   while (my $next = $nodes->[$i + 1]) {

diff --git a/lib/Mojo/DOM/HTML.pm b/lib/Mojo/DOM/HTML.pm
@@ -213,6 +213,8 @@ sub _node {
 sub _render {
   my ($tree, $xml) = @_;
 
+  no warnings 'recursion';
+
   # Text (escaped)
   my $type = $tree->[0];
   return xml_escape $tree->[1] if $type eq 'text';