perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@apache.org
Subject cvs commit: modperl-2.0/xs/tables/current/ModPerl FunctionTable.pm
Date Sat, 28 Apr 2001 22:42:56 GMT
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'
  
  
  

Mime
View raw message