just use a relative backreference

mojolicious · Oct 26, 2015 · 648eaa1 · 648eaa1
1 parent ca160cc
commit 648eaa1
Showing 1 changed file with 4 additions and 6 deletions.
diff --git a/lib/Mojo/DOM/HTML.pm b/lib/Mojo/DOM/HTML.pm
@@ -8,15 +8,13 @@ has tree => sub { ['root'] };
 has 'xml';
 
 my $ATTR_RE = qr/
-  ([^<>=\s\/]+|\/)   # Key
+  ([^<>=\s\/]+|\/)         # Key
   (?:
     \s*=\s*
     (?:
-      "([^"]*?)"     # Quotation marks
+      ([\"'])(.*?)\g{-2}   # Quoted
     |
-      '([^']*?)'     # Apostrophes
-    |
-      ([^>\s]*)      # Unquoted
+      ([^>\s]*)            # Unquoted
     )
   )?
   \s*
@@ -126,7 +124,7 @@ sub parse {
         # Attributes
         my (%attrs, $closing);
         while ($attr =~ /$ATTR_RE/go) {
-          my ($key, $value) = ($xml ? $1 : lc $1, $2 // $3 // $4);
+          my ($key, $value) = ($xml ? $1 : lc $1, $3 // $4);
 
           # Empty tag
           ++$closing and next if $key eq '/';