Allow parentheses in the attribute index, for <source>'s attributes

See whatwg/html#6419
whatwg · Mar 2, 2021 · c3f8abc · c3f8abc
1 parent ec75dde
commit c3f8abc
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/.pre-process-annotate-attributes.pl b/.pre-process-annotate-attributes.pl
@@ -51,14 +51,14 @@
                 # ignore...
             }
         } elsif ($mode eq 'tr') {
-            if ($_ =~ m!^     <td> <(?:code|span) data-x="([^"]+)">[^<]*</(?:code|span)>;?\n$!os) {
+            if ($_ =~ m!^     <td> <(?:code|span) data-x="([^"]+)">[^<]*</(?:code|span)>(?: \(in [^\)]+\))?;?\n$!os) {
                 $attributes{$1} = 1;
                 $mode = 'index-in';
             } else {
                 # ignore...
             }
         } elsif ($mode eq 'index-in') {
-            if ($_ =~ m!^          <(?:code|span) data-x="([^"]+)">[^<]*</(?:code|span)>;?\n$!os) {
+            if ($_ =~ m!^          <(?:code|span) data-x="([^"]+)">[^<]*</(?:code|span)>(?: \(in [^\)]+\))?;?\n$!os) {
                 $attributes{$1} = 1;
             } elsif ($_ =~ m@^     <td> (.+?)(?:<!--or: (.+)-->)?\n$@os) {
                 local $" = ', ';