cvs commit: modperl-2.0/lib/ModPerl CScan.pm

[stas]

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);