dougm 02/05/13 20:12:56
Modified: lib/ModPerl TypeMap.pm
xs modperl_xs_util.h
Log:
make setting of APR::URI fields apr_pstrdup-ed
Revision Changes Path
1.16 +1 -1 modperl-2.0/lib/ModPerl/TypeMap.pm
Index: TypeMap.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/lib/ModPerl/TypeMap.pm,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -r1.15 -r1.16
--- TypeMap.pm 11 Mar 2002 10:29:44 -0000 1.15
+++ TypeMap.pm 14 May 2002 03:12:55 -0000 1.16
@@ -360,7 +360,7 @@
(my $f = "mpxs_${_}_pool") =~ s/:/_/g;
$_, $f;
} qw{
- Apache::RequestRec Apache::Connection Apache::URI
+ Apache::RequestRec Apache::Connection Apache::URI APR::URI
};
sub class_pool : lvalue {
1.12 +1 -0 modperl-2.0/xs/modperl_xs_util.h
Index: modperl_xs_util.h
===================================================================
RCS file: /home/cvs/modperl-2.0/xs/modperl_xs_util.h,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -r1.11 -r1.12
--- modperl_xs_util.h 6 Nov 2001 17:37:25 -0000 1.11
+++ modperl_xs_util.h 14 May 2002 03:12:56 -0000 1.12
@@ -12,6 +12,7 @@
#define mpxs_Apache__RequestRec_pool(r) r->pool
#define mpxs_Apache__Connection_pool(c) c->pool
#define mpxs_Apache__URI_pool(u) ((modperl_uri_t *)u)->pool
+#define mpxs_APR__URI_pool(u) ((modperl_uri_t *)u)->pool
#ifndef dAX
# define dAX I32 ax = mark - PL_stack_base + 1
