[perl-ldap-checkins] CVS: asn mkparse,1.1.1.1,1.2 parser.y,1.6,1.7

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

Update of /cvsroot/perl-ldap/asn
In directory usw-pr-cvs1:/tmp/cvs-serv1329

Modified Files:
	mkparse parser.y 
Log Message:
Allow '-'s in names and fix an uninit warning in the generated parser


Index: mkparse
===================================================================
RCS file: /cvsroot/perl-ldap/asn/mkparse,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -u -d -r1.1.1.1 -r1.2
--- mkparse	3 May 2000 12:24:43 -0000	1.1.1.1
+++ mkparse	25 Mar 2002 07:39:46 -0000	1.2
@@ -49,6 +49,9 @@
     s/^if \(\$yyn == (\d+)\s*\)/State$1:/ and $state{"State$1"} = '';
   }
 
+  # fix an uninit bug
+  s/^(\s*)(?=\$yycheck\[\$yyn\]\s+==)/$1\$yyn <= \$#yycheck && /;
+
   print OUT;
 
   # Print the goto for the switch

Index: parser.y
===================================================================
RCS file: /cvsroot/perl-ldap/asn/parser.y,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- parser.y	22 Jan 2002 11:24:28 -0000	1.6
+++ parser.y	25 Mar 2002 07:39:46 -0000	1.7
@@ -493,7 +493,7 @@
 	    RELATIVE-OID
 	  )\b
 	|
-	  (\w+)
+	  (\w+(?:-\w+)*)
 	|
 	    \[\s*
 	  (