perl-dev mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Randy Kobes <ra...@theoryx5.uwinnipeg.ca>
Subject Re: [mp2] MP_HAVE_APR_LIBS?
Date Wed, 05 Nov 2003 06:16:25 GMT
On Wed, 5 Nov 2003, Randy Kobes wrote:

[ ... ]
> However, when I use this, I get an error from
> xs/APR/APR/APR.xs:
> =========================================================
> 	cd "src/modules/perl" && NMAKE -f Makefile.modperl
>
> 	cl -c -IC:/MyFiles/MODPER~1.0/src/modules/perl
> -IC:/MyFiles/MODPER~1.0/xs -IC:/Apache2/include
> -IC:\Apache2/include -nologo -Gf -W3 -MD -DNDEBUG -O1
> -DWIN32 -D_CONSOLE -DNO_STRICT -DHAVE_DES_FCRYPT
> -DPERL_IMPLICIT_CONTEXT -DPERL_IMPLICIT_SYS -DUSE_PERLIO
> -DPERL_MSVCRT_READFIX -DMOD_PERL -DMP_COMPAT_1X -MD -DNDEBUG
> -O1 -DVERSION=\"0.01\"  -DXS_VERSION=\"0.01\"
> "-IC:\Perl\lib\CORE"  -DMP_HAVE_APR_LIBS APR.c APR.c
>
> APR.xs(22) : error C2065: 'my_perl' : undeclared identifier
> APR.xs(22) : warning C4047: 'function' : 'struct interpreter
> *' differs in levels of indirection from 'int '
> APR.xs(22) : warning C4024: 'Perl_IStdIO_ptr' : different
> types for formal and actual parameter 1
> APR.xs(22) : warning C4047: 'function' : 'struct interpreter
> *' differs in levels of indirection from 'int '
> APR.xs(22) : warning C4024: 'Perl_IStdIO_ptr' : different
> types for formal and actual parameter 1
>
> ============================================================
> coming from the fprintf(stderr, ...) call.
[ .. ]
Would the following be correct?
====================================================
Index: xs/APR/APR/APR.xs
===================================================================
RCS file: /home/cvs/modperl-2.0/xs/APR/APR/APR.xs,v
retrieving revision 1.7
diff -u -r1.7 APR.xs
--- xs/APR/APR/APR.xs	25 Aug 2003 23:28:24 -0000	1.7
+++ xs/APR/APR/APR.xs	5 Nov 2003 06:15:44 -0000
@@ -15,11 +15,13 @@
 #include "apr_hooks.h"
 static void extra_apr_init(void)
 {
+    dTHX;
     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 "
+            PerlIO_printf(PerlIO_stderr(),
+            "Fatal error: unable to create global pool "
                     "for use with by the scoreboard");
         }
         /* XXX: mutex locking? */
================================================================

-- 
best regards,
randy

---------------------------------------------------------------------
To unsubscribe, e-mail: dev-unsubscribe@perl.apache.org
For additional commands, e-mail: dev-help@perl.apache.org


Mime
View raw message