Fixed renaming to ident_decl

Author: AnFunctionArray

faster.regex.pl

@@ -26,7 +26,7 @@ sub register_taggable {
 sub register_normal_decl {
     my $poslast = pos();
     my $ident = $_[0];
-    $matches[-1]{'ident'} = $ident;
+    $matches[-1]{'ident_decl'} = $ident;
     #CORE::print ("registering " . $ident . " " . $matches[-1]{typedefkey} . "\n");
     register_decl($matches[-1]);
     push_decl($lastcurpos, $ident)

parse.pl

@@ -1570,7 +1570,7 @@ sub callcommon {
     #}
     my $res=not $facet;
     my $out=-1;
-    
+    #CORE::print("calling: " . $funcnm . "\n");
     if($res) {
         eval {$funcnm->($captures, $flags, \$res, \$out) };
     }

typename.regex.pl

@@ -235,8 +235,8 @@ sub identifier_decl {
 sub register_decl{
     #$silent = 0;
     #$sielnt = 1;
-    my $identifier = $_[0]{'ident'};
-    #CORE::print ("register $threadid ". $identifier . $_[0]{'typedefkey'} . "\n");
+    my $identifier = $_[0]{'ident_decl'};
+    #CORE::print ("register $threadid ". $identifier . " " . $_[0]{'typedefkey'} . "\n");
     #use Data::Dumper;
     #Dumper($_[0]);
     return if not $identifier;