fixed another small XML bug

mojolicious · Jan 4, 2014 · 93266ac · 93266ac
1 parent 6177489
commit 93266ac
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/lib/Mojo/DOM/HTML.pm b/lib/Mojo/DOM/HTML.pm
@@ -145,7 +145,7 @@ sub parse {
 
     # Processing instruction (try to detect XML)
     elsif (defined $pi) {
-      $self->xml(1) if !defined $self->xml && $pi =~ /xml/i;
+      $self->xml(1) if !exists $self->{xml} && $pi =~ /xml/i;
       push @$current, ['pi', $pi];
     }
   }

diff --git a/t/mojo/dom.t b/t/mojo/dom.t
@@ -1753,6 +1753,8 @@ is $dom, '<XMLTest2 />', 'right result';
 $dom = Mojo::DOM->new->xml(0)
   ->parse('<?xml version="1.0" encoding="UTF-8"?><br><div>Test</div>');
 is $dom->at('div:root')->text, 'Test', 'right text';
+ok !Mojo::DOM->new->xml(undef)->parse('<?xml version="1.0"?>')->xml,
+  'XML mode not detected';
 
 # Ensure XML semantics
 $dom = Mojo::DOM->new->parse(<<'EOF');