treat a few more broken tags as text

mojolicious · Jul 21, 2013 · d476cd4 · d476cd4
1 parent b3fcefa
commit d476cd4
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 6 deletions.
diff --git a/lib/Mojo/DOM/HTML.pm b/lib/Mojo/DOM/HTML.pm
@@ -8,7 +8,7 @@ has 'xml';
 has tree => sub { ['root'] };
 
 my $ATTR_RE = qr/
-  ([^=\s>]+)       # Key
+  ([^<>=\s]+)      # Key
   (?:
     \s*=\s*
     (?:
@@ -78,8 +78,7 @@ my %INLINE = map { $_ => 1 } (
 sub parse {
   my ($self, $html) = @_;
 
-  my $tree    = ['root'];
-  my $current = $tree;
+  my $current = my $tree = ['root'];
   while ($html =~ m/\G$TOKEN_RE/gcs) {
     my ($text, $pi, $comment, $cdata, $doctype, $tag, $runaway)
       = ($1, $2, $3, $4, $5, $6, $11);

diff --git a/t/mojo/dom.t b/t/mojo/dom.t
@@ -100,13 +100,14 @@ is "$dom", <<EOF, 'right result';
   <![CDATA[ yada yada]]>
   <?boom lalalala ?>
   <a bit broken little>
-  <very <br broken></very>
+  &lt; very broken
+  <br />
   more text
 </a></foo>
 EOF
 my $simple = $dom->at('foo simple.working[class^="wor"]');
-is $simple->parent->all_text, 'test easy works well yada yada more text',
-  'right text';
+is $simple->parent->all_text,
+  'test easy works well yada yada < very broken more text', 'right text';
 is $simple->type, 'simple', 'right type';
 is $simple->attrs('class'), 'working', 'right class attribute';
 is $simple->text, 'easy', 'right text';