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*
(
|
