perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: modperl-2.0/xs/APR/APR APR.xs
Date Wed, 05 Nov 2003 07:24:58 GMT
stas        2003/11/04 23:24:58

  Modified:    xs/APR/APR APR.xs
  Log:
  don't use fprintf with perl, since it redefines this function with
  PerlIO_printf anyway, which requires aTHX, so use that function directly
  and pass aTHX to it from XS.
  Submitted by: Randy Kobes
  
  Revision  Changes    Path
  1.8       +5 -4      modperl-2.0/xs/APR/APR/APR.xs
  
  Index: APR.xs
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/xs/APR/APR/APR.xs,v
  retrieving revision 1.7
  retrieving revision 1.8
  diff -u -u -r1.7 -r1.8
  --- APR.xs	25 Aug 2003 23:28:24 -0000	1.7
  +++ APR.xs	5 Nov 2003 07:24:58 -0000	1.8
  @@ -13,14 +13,15 @@
   /* XXX: APR_initialize doesn't initialize apr_hook_global_pool, needed for
    * work outside httpd, so do it manually PR22605 */
   #include "apr_hooks.h"
  -static void extra_apr_init(void)
  +static void extra_apr_init(pTHX)
   {
       if (apr_hook_global_pool == NULL) {
           apr_pool_t *global_pool;
           apr_status_t rv = apr_pool_create(&global_pool, NULL);
           if (rv != APR_SUCCESS) {
  -            fprintf(stderr, "Fatal error: unable to create global pool "
  -                    "for use with by the scoreboard");
  +            PerlIO_printf(PerlIO_stderr(),
  +                          "Fatal error: unable to create global pool "
  +                          "for use with by the scoreboard");
           }
           /* XXX: mutex locking? */
           apr_hook_global_pool = global_pool;
  @@ -37,7 +38,7 @@
   BOOT:
       file = file; /* -Wall */
       APR_initialize();
  -    extra_apr_init();
  +    extra_apr_init(aTHX);
   
   void
   END()
  
  
  

Mime
View raw message