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

[dougm]

dougm       01/04/11 17:48:02

  Modified:    lib/Apache ParseSource.pm
  Log:
  filter some junk out
  
  Revision  Changes    Path
  1.14      +2 -1      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.13
  retrieving revision 1.14
  diff -u -r1.13 -r1.14
  --- ParseSource.pm    2001/04/11 22:38:17     1.13
  +++ ParseSource.pm    2001/04/12 00:48:02     1.14
  @@ -169,7 +169,7 @@
   );
   
   my $defines_unwanted = join '|', qw{
  -HTTP_VERSION
  +HTTP_VERSION APR_EOL_STR
   };
   
   sub get_constants {
  @@ -183,6 +183,7 @@
           while (<$fh>) {
               if (s/^\#define\s+(\w+)\s+.*/$1/) {
                   chomp;
  +                next if /_H$/;
                   next if $seen{$_}++;
                   $self->handle_constant(\%constants);
               }