You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by st...@apache.org on 2003/03/13 01:47:55 UTC
cvs commit: modperl-2.0/lib/ModPerl WrapXS.pm
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];