cvs commit: modperl-2.0/lib/Apache ParseSource.pm

[stas]

stas        2004/04/30 17:15:44

  Modified:    lib/Apache ParseSource.pm
  Log:
  enum parsing, a small tweak to easy the debug
  
  Revision  Changes    Path
  1.53      +2 -0      modperl-2.0/lib/Apache/ParseSource.pm
  
  Index: ParseSource.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/lib/Apache/ParseSource.pm,v
  retrieving revision 1.52
  retrieving revision 1.53
  diff -u -u -r1.52 -r1.53
  --- ParseSource.pm    1 May 2004 00:15:06 -0000       1.52
  +++ ParseSource.pm    1 May 2004 00:15:44 -0000       1.53
  @@ -366,10 +366,12 @@
           $code =~ s/\s*(\w+)\s*;\s*$//;
           $name = $1;
       }
  +
       $code =~ s:/\*.*?\*/::sg;
       $code =~ s/\s*=\s*\w+//g;
       $code =~ s/^[^\{]*\{//s;
       $code =~ s/\}[^;]*;?//s;
  +    $code =~ s/^\s*\n//gm;
   
       while ($code =~ /\b(\w+)\b,?/g) {
           push @e, $1;