[perl-ldap-checkins] CVS: asn parser.y,1.10,1.11

[Graham B. <gb...@us...>]

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;
 		}
 	;