dougm 01/04/28 15:42:56
Modified: xs/Apache/RequestUtil Apache__RequestUtil.h
xs/maps modperl_functions.map
xs/tables/current/ModPerl FunctionTable.pm
Log:
allow optional APR::Pool parameter to allocate Apache::RequestRec->new
Revision Changes Path
1.4 +7 -2 modperl-2.0/xs/Apache/RequestUtil/Apache__RequestUtil.h
Index: Apache__RequestUtil.h
===================================================================
RCS file: /home/cvs/modperl-2.0/xs/Apache/RequestUtil/Apache__RequestUtil.h,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- Apache__RequestUtil.h 2001/03/17 06:03:37 1.3
+++ Apache__RequestUtil.h 2001/04/28 22:42:55 1.4
@@ -43,13 +43,18 @@
static MP_INLINE
request_rec *mpxs_Apache__RequestRec_new(SV *classname,
- conn_rec *c)
+ conn_rec *c,
+ apr_pool_t *base_pool)
{
apr_pool_t *p;
request_rec *r;
server_rec *s = c->base_server;
- apr_pool_create(&p, c->pool);
+ if (!base_pool) {
+ base_pool = c->pool;
+ }
+
+ apr_pool_create(&p, base_pool);
r = apr_pcalloc(p, sizeof(request_rec));
r->pool = p;
1.8 +1 -1 modperl-2.0/xs/maps/modperl_functions.map
Index: modperl_functions.map
===================================================================
RCS file: /home/cvs/modperl-2.0/xs/maps/modperl_functions.map,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -r1.7 -r1.8
--- modperl_functions.map 2001/04/28 19:10:44 1.7
+++ modperl_functions.map 2001/04/28 22:42:56 1.8
@@ -9,7 +9,7 @@
mpxs_Apache__RequestRec_location_merge
mpxs_Apache__RequestRec_set_basic_credentials
PACKAGE=Apache::RequestRec
- mpxs_Apache__RequestRec_new
+ mpxs_Apache__RequestRec_new | | classname, c, base_pool=NULL
MODULE=Apache::RequestIO PACKAGE=Apache::RequestRec
SV *:DEFINE_TIEHANDLE | | SV *:stashsv, SV *:sv=Nullsv
1.11 +19 -1 modperl-2.0/xs/tables/current/ModPerl/FunctionTable.pm
Index: FunctionTable.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/xs/tables/current/ModPerl/FunctionTable.pm,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -r1.10 -r1.11
--- FunctionTable.pm 2001/04/28 22:34:18 1.10
+++ FunctionTable.pm 2001/04/28 22:42:56 1.11
@@ -2,7 +2,7 @@
# !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
# ! WARNING: generated by ModPerl::ParseSource/0.01
-# ! Sat Apr 28 15:05:42 2001
+# ! Sat Apr 28 15:36:08 2001
# ! do NOT edit, any changes will be lost !
# !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
@@ -2967,6 +2967,20 @@
'name' => 'mpxs_ap_parse_uri_components'
},
{
+ 'return_type' => 'int',
+ 'args' => [
+ {
+ 'name' => 'my_perl',
+ 'type' => 'PerlInterpreter *'
+ },
+ {
+ 'name' => 'url',
+ 'type' => 'SV *'
+ }
+ ],
+ 'name' => 'mpxs_ap_unescape_url'
+ },
+ {
'return_type' => 'SV *',
'args' => [
{
@@ -3040,6 +3054,10 @@
{
'name' => 'c',
'type' => 'conn_rec *'
+ },
+ {
+ 'name' => 'base_pool',
+ 'type' => 'apr_pool_t *'
}
],
'name' => 'mpxs_Apache__RequestRec_new'
