Perl IDL parser: allow extended attributes to have more than 2 values

Source/bindings/scripts/idl_parser.pm

Index: Source/bindings/scripts/idl_parser.pm
diff --git a/Source/bindings/scripts/idl_parser.pm b/Source/bindings/scripts/idl_parser.pm
index a216c242c71da2489816ee179893283c0bb68870..67ea502b7d1f2f82a2b9bd6c9e64d07023d0ed88 100644
--- a/Source/bindings/scripts/idl_parser.pm
+++ b/Source/bindings/scripts/idl_parser.pm
@@ -1631,13 +1631,11 @@ sub parseExtendedAttributeRest3
     my $next = $self->nextToken();
     if ($next->value() eq "&") {
         $self->assertTokenValue($self->getToken(), "&", __LINE__);
-        my $rightValue = $self->parseScopedName();
-        return $name . "&" . $rightValue;
+        return $name . "&" . $self->parseExtendedAttributeRest2();

[Nils Barth (inactive), 2014/01/06 07:09:53]

To explain the crypticness:
parseExtendedAttributeRest*2* parses an extended attribute value,
extracting an identifier and then calling parseExtendedAttributeRest*3*
to handle the tail -- &|(,] etc.
Thus for &| we should mutually recurse back to *2* to build a list.
Existing code is buggy b/c it instead requires that the tail be
a single identifier, not a list, thus limiting list length to 2.

(Not commenting in existing parser Perl code b/c this is going away
soon, and it's much simpler in the Python parser.)

     }
     if ($next->value() eq "|") {
         $self->assertTokenValue($self->getToken(), "|", __LINE__);
-        my $rightValue = $self->parseScopedName();
-        return $name . "|" . $rightValue;
+        return $name . "|" . $self->parseExtendedAttributeRest2();
     }
     if ($next->value() eq "(") {
         my $attr = {};