[perl-ldap-checkins] CVS: asn/lib/Convert/ASN1 parser.pm,1.7,1.8

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

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

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


Index: parser.pm
===================================================================
RCS file: /cvsroot/perl-ldap/asn/lib/Convert/ASN1/parser.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- parser.pm	22 Jan 2002 11:24:28 -0000	1.7
+++ parser.pm	25 Mar 2002 07:39:46 -0000	1.8
@@ -210,7 +210,7 @@
     {
       if (($yyn = $yysindex[$yyss[$yyssp]]) && 
           ($yyn += constYYERRCODE()) >= 0 && 
-          $yycheck[$yyn] == constYYERRCODE())
+          $yyn <= $#yycheck && $yycheck[$yyn] == constYYERRCODE())
       {
 
 
@@ -271,7 +271,7 @@
 
       }
       if (($yyn = $yysindex[$yystate]) && ($yyn += $yychar) >= 0 &&
-              $yycheck[$yyn] == $yychar)
+              $yyn <= $#yycheck && $yycheck[$yyn] == $yychar)
       {
 
 
@@ -284,7 +284,7 @@
         next yyloop;
       }
       if (($yyn = $yyrindex[$yystate]) && ($yyn += $yychar) >= 0 &&
-            $yycheck[$yyn] == $yychar)
+            $yyn <= $#yycheck && $yycheck[$yyn] == $yychar)
       {
         $yyn = $yytable[$yyn];
         last yyreduce;
@@ -835,7 +835,7 @@
 	    RELATIVE-OID
 	  )\b
 	|
-	  (\w+)
+	  (\w+(?:-\w+)*)
 	|
 	    \[\s*
 	  (
@@ -899,12 +899,12 @@
 
 # 947 "y.tab.pl"
 
-%yystate = ('State20','','State21','','State43','','State27','','State28',
-'','State45','','State29','','State46','','State47','','State48','',
-'State1','','State3','','State4','','State5','','State11','','State14','',
-'State30','','State31','','State32','','State33','','State18','','State34',
-'','State50','','State19','','State35','','State51','','State36','',
-'State52','','State37','','State53','','State38','','State54','','State39',
-'','State55','','State56','','State57','');
+%yystate = ('State20','','State11','','State30','','State21','','State31',
+'','State50','','State32','','State14','','State51','','State33','',
+'State52','','State43','','State34','','State53','','State35','','State54',
+'','State45','','State36','','State18','','State27','','State55','',
+'State46','','State37','','State19','','State28','','State56','','State47',
+'','State38','','State29','','State57','','State48','','State39','',
+'State1','','State3','','State4','','State5','');
 
 1;