stas 2004/04/30 14:55:53
Modified: lib/ModPerl CScan.pm Log: support embedded enum-in-struct definitions, last source scanning problem eliminated (as of now :) Revision Changes Path 1.2 +1 -1 modperl-2.0/lib/ModPerl/CScan.pm Index: CScan.pm =================================================================== RCS file: /home/cvs/modperl-2.0/lib/ModPerl/CScan.pm,v retrieving revision 1.1 retrieving revision 1.2 diff -u -u -r1.1 -r1.2 --- CScan.pm 14 Apr 2004 03:35:39 -0000 1.1 +++ CScan.pm 30 Apr 2004 21:55:53 -0000 1.2 @@ -434,7 +434,7 @@ next if $b == $e; $chunk = substr($in, $b, $e - $b); $b = $e; - if ($chunk =~ /\G\s*(struct|union).*\}/gs) { + if ($chunk =~ /\G\s*(struct|union|enum).*\}/gs) { my $term = pos $chunk; my $name = parse_struct(substr($chunk, 0, $term), $structs); $vars = parse_vars(join ' ', $name, substr $chunk, $term);