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

[dougm]

dougm       01/04/17 22:25:01

  Modified:    lib/ModPerl Code.pm
  Log:
  strip APR_ and AP_ prefixes from constant names
  
  Revision  Changes    Path
  1.58      +3 -2      modperl-2.0/lib/ModPerl/Code.pm
  
  Index: Code.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/lib/ModPerl/Code.pm,v
  retrieving revision 1.57
  retrieving revision 1.58
  diff -u -r1.57 -r1.58
  --- Code.pm   2001/04/18 04:40:00     1.57
  +++ Code.pm   2001/04/18 05:25:01     1.58
  @@ -680,7 +680,7 @@
       $file;
   }
   
  -my $constant_prefixes = join '|', qw{APR};
  +my $constant_prefixes = join '|', qw{APR?};
   
   sub generate_constants {
       my($self, $h_fh, $c_fh) = @_;
  @@ -789,7 +789,8 @@
        push @tags, $group;
           my $name = join '_', 'MP_constants', $class, $group;
        print $c_fh "\nstatic const char *$name [] = { \n",
  -          (map { s/^APR_//; qq(   "$_",\n) } @$constants), "   NULL,\n};\n";
  +          (map { s/^($constant_prefixes)_//o;
  +                 qq(   "$_",\n) } @$constants), "   NULL,\n};\n";
       }
   
       my %switch;