dougm       01/09/12 21:41:44

  Modified:    lib/Apache compat.pm
               xs/Apache/Response Apache__Response.h
               xs/maps  modperl_functions.map
               xs/tables/current/ModPerl FunctionTable.pm
  Log:
  move send_http_header to xs so we can turn off PerlOptions +ParseHeaders
  
  Revision  Changes    Path
  1.11      +0 -7      modperl-2.0/lib/Apache/compat.pm
  
  Index: compat.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/lib/Apache/compat.pm,v
  retrieving revision 1.10
  retrieving revision 1.11
  diff -u -r1.10 -r1.11
  --- compat.pm 2001/05/08 18:22:43     1.10
  +++ compat.pm 2001/09/13 04:41:44     1.11
  @@ -97,13 +97,6 @@
       return $r->parse_args($buf)
   }
   
  -sub send_http_header {
  -    my($r, $type) = @_;
  -    if ($type) {
  -        $r->content_type($type);
  -    }
  -}
  -
   sub clear_rgy_endav {
   }
   
  
  
  
  1.4       +13 -0     modperl-2.0/xs/Apache/Response/Apache__Response.h
  
  Index: Apache__Response.h
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/xs/Apache/Response/Apache__Response.h,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -r1.3 -r1.4
  --- Apache__Response.h        2001/05/08 21:08:53     1.3
  +++ Apache__Response.h        2001/09/13 04:41:44     1.4
  @@ -12,3 +12,16 @@
       modperl_cgi_header_parse(r, SvPV(sv,len), &bodytext); \
       rcfg->wbucket.header_parse = 0; \
   }
  +
  +/* XXX: should only be part of Apache::compat */
  +static MP_INLINE void
  +mpxs_Apache__RequestRec_send_http_header(request_rec *r, const char *type)
  +{
  +    MP_dRCFG;
  +
  +    if (type) {
  +        r->content_type = apr_pstrdup(r->pool, type);
  +    }
  +
  +    rcfg->wbucket.header_parse = 0; /* turn off PerlOptions +ParseHeaders */
  +}
  
  
  
  1.18      +1 -0      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.17
  retrieving revision 1.18
  diff -u -r1.17 -r1.18
  --- modperl_functions.map     2001/09/08 18:26:46     1.17
  +++ modperl_functions.map     2001/09/13 04:41:44     1.18
  @@ -26,6 +26,7 @@
   
   MODULE=Apache::Response   PACKAGE=Apache::RequestRec
   DEFINE_send_cgi_header | | request_rec *:r, SV *:buffer
  + mpxs_Apache__RequestRec_send_http_header | | r, type=NULL
   
   MODULE=Apache::ServerUtil   PACKAGE=guess
    mpxs_Apache__Server_push_handlers
  
  
  
  1.24      +15 -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.23
  retrieving revision 1.24
  diff -u -r1.23 -r1.24
  --- FunctionTable.pm  2001/09/08 18:26:46     1.23
  +++ FunctionTable.pm  2001/09/13 04:41:44     1.24
  @@ -2,7 +2,7 @@
   
   # !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   # ! WARNING: generated by ModPerl::ParseSource/0.01
  -# !          Sat Sep  8 11:16:43 2001
  +# !          Wed Sep 12 21:41:47 2001
   # !          do NOT edit, any changes will be lost !
   # !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   
  @@ -3436,6 +3436,20 @@
         {
           'type' => 'int',
           'name' => 'offset'
  +      }
  +    ]
  +  },
  +  {
  +    'return_type' => '',
  +    'name' => 'mpxs_Apache__RequestRec_send_http_header',
  +    'args' => [
  +      {
  +        'type' => 'request_rec *',
  +        'name' => 'r'
  +      },
  +      {
  +        'type' => 'const char *',
  +        'name' => 'type'
         }
       ]
     },
  
  
  

Reply via email to