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

[dougm]

dougm       01/04/17 22:27:39

  Modified:    lib/Apache ParseSource.pm
  Log:
  pickup apache_filter and input_mode constants
  
  Revision  Changes    Path
  1.15      +3 -2      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.14
  retrieving revision 1.15
  diff -u -r1.14 -r1.15
  --- ParseSource.pm    2001/04/12 00:48:02     1.14
  +++ ParseSource.pm    2001/04/18 05:27:39     1.15
  @@ -164,7 +164,7 @@
   }
   
   my %enums_wanted = (
  -    Apache => { map { $_, 1 } qw(cmd_how) },
  +    Apache => { map { $_, 1 } qw(cmd_how input_mode filter_type) },
       APR => { map { $_, 1 } qw(apr_shutdown_how) },
   );
   
  @@ -225,7 +225,8 @@
       my($name, $e) = $self->parse_enum($fh);
       return unless $name;
   
  -    $name =~ s/_e$//;
  +    $name =~ s/^ap_//;
  +    $name =~ s/_(e|t)$//;
   
       my $class;
       for (keys %enums_wanted) {