Minor fix to allow trailing comma enum

Author: AnFunctionArray

faster.regex

@@ -11,10 +11,10 @@
 (?<fasterdecls>(?(?=(?{push2 \@matches, {}})(?<declbod>((?(<tagend>)(*F))(\s*+(?&typeorqualifortypdf)\s*+
     |(\s*+\b(?<tagtype>struct|union)\b\s*+(?<identtag>((?&identifierpure)?+))(?{eval {$matches[-1]{strc}=$^N}})\s*+
     ((?&brackets)(?{register_taggable()}))?+\s*+
-    |\s*+\benum\b\s*+(?<ident_enum>((?&identifierpure)?+))(?{eval {$matches[-1]{strc}=$^N}})\s*+
+    |\s*+\benum\b\s*+(?<ident_enum>(((?&identifierpure))(?{eval {$matches[-1]{strc}=$^N}}))?+)\s*+
     (\{\s*+(?{push2 \@matches, {}})
-        (((?&normal_rec)(?&init_q)?+,)*+
-        (?&normal_rec)(?&init_q)?+,?+)?+
+        ((?&normal_rec)(?&init_q)?+
+        (,(?&normal_rec)(?&init_q)?+)*+,?+)?+
     (?{pop2 \@matches})\s*+\}\s*+)?+)((?<tagend>;)(?{dispatch_file_scope_stm(pos(),$minlen)}))?+
     ))*+
     (?(<tagend>)|(?&identoutter)

parse.pl

@@ -996,7 +996,8 @@ sub waitforid {
     my $tryagain = 2;
     my $lasrtypedefobj = {%{$typedefidentifiersvector->[0]}};
     my $lastposcurrlast = 0;
-    my $compreg = qr{$initseqlight\G\s*+(?&fasterdecls)*+}sxx;
+    my $compreg = eval { #use re qw(Debug EXECUTE); 
+        qr{$initseqlight\G\s*+(?&fasterdecls)*+}sxx; };
 
     #while(1) {
         {