Update of /cvsroot/perl-ldap/asn
In directory sc8-pr-cvs1:/tmp/cvs-serv22740
Modified Files:
parser.y
Log Message:
Support OPTIONAL on SET OF and SEQUENCE OF
Index: parser.y
===================================================================
RCS file: /cvsroot/perl-ldap/asn/parser.y,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- parser.y 6 May 2003 21:29:07 -0000 1.10
+++ parser.y 7 May 2003 15:13:27 -0000 1.11
@@ -133,10 +133,10 @@
| SET
;
-selem : seqset OF class plicit sselem
+selem : seqset OF class plicit sselem optional
{
$5->[cTAG] = $3;
- @{$$ = []}[cTYPE,cCHILD,cLOOP] = ($1, [$5], 1);
+ @{$$ = []}[cTYPE,cCHILD,cLOOP,cOPT] = ($1, [$5], 1, $6);
$$ = explicit($$) if $4;
}
;
|
