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

[stas]

stas        2003/03/12 16:47:54

  Modified:    lib/ModPerl WrapXS.pm
  Log:
  a workaround for ap_sub_req_* functions
  
  Revision  Changes    Path
  1.49      +5 -0      modperl-2.0/lib/ModPerl/WrapXS.pm
  
  Index: WrapXS.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/lib/ModPerl/WrapXS.pm,v
  retrieving revision 1.48
  retrieving revision 1.49
  diff -u -r1.48 -r1.49
  --- WrapXS.pm 24 Feb 2003 02:08:30 -0000      1.48
  +++ WrapXS.pm 13 Mar 2003 00:47:54 -0000      1.49
  @@ -575,6 +575,7 @@
               $last_prefix = $prefix if $prefix;
   
               my $name = $func->{name};
  +
               if ($name =~ /^mpxs_/) {
                   #e.g. mpxs_Apache__RequestRec_
                   my $class_prefix = class_c_prefix($class);
  @@ -582,6 +583,10 @@
                       $prefix = class_mpxs_prefix($class);
                   }
               }
  +            elsif ($name =~ /^ap_sub_req/) {
  +                $prefix = 'ap_sub_req_';
  +            }
  +
               $name =~ s/^$prefix// if $prefix;
   
               push @{ $map{$name} }, [$module, $class];