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

[dougm]

dougm       01/04/19 10:22:57

  Modified:    lib/Apache ParseSource.pm
  Log:
  generate tables into the xs/tables/current directory, pickup apr_read_type enum
  
  Revision  Changes    Path
  1.16      +4 -3      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.15
  retrieving revision 1.16
  diff -u -r1.15 -r1.16
  --- ParseSource.pm    2001/04/18 05:27:39     1.15
  +++ ParseSource.pm    2001/04/19 17:22:54     1.16
  @@ -165,7 +165,7 @@
   
   my %enums_wanted = (
       Apache => { map { $_, 1 } qw(cmd_how input_mode filter_type) },
  -    APR => { map { $_, 1 } qw(apr_shutdown_how) },
  +    APR => { map { $_, 1 } qw(apr_shutdown_how apr_read_type) },
   );
   
   my $defines_unwanted = join '|', qw{
  @@ -390,8 +390,9 @@
   
       my($subdir) = (split '::', $name)[0];
   
  -    if (-d "lib/$subdir") {
  -        $file = "lib/$subdir/$file";
  +    my $tdir = 'xs/tables/current';
  +    if (-d "$tdir/$subdir") {
  +        $file = "$tdir/$subdir/$file";
       }
   
       open my $pm, '>', $file or die "open $file: $!";