Return-Path: Delivered-To: apmail-perl-dev-archive@www.apache.org Received: (qmail 39712 invoked from network); 5 Nov 2003 06:19:05 -0000 Received: from daedalus.apache.org (HELO mail.apache.org) (208.185.179.12) by minotaur-2.apache.org with SMTP; 5 Nov 2003 06:19:05 -0000 Received: (qmail 55445 invoked by uid 500); 5 Nov 2003 06:18:52 -0000 Delivered-To: apmail-perl-dev-archive@perl.apache.org Received: (qmail 55271 invoked by uid 500); 5 Nov 2003 06:18:51 -0000 Mailing-List: contact dev-help@perl.apache.org; run by ezmlm Precedence: bulk list-help: list-unsubscribe: list-post: Delivered-To: mailing list dev@perl.apache.org Received: (qmail 55258 invoked from network); 5 Nov 2003 06:18:51 -0000 Received: from unknown (HELO theoryx5.uwinnipeg.ca) (142.132.1.82) by daedalus.apache.org with SMTP; 5 Nov 2003 06:18:51 -0000 Received: from theoryx5.uwinnipeg.ca (localhost.localdomain [127.0.0.1]) by theoryx5.uwinnipeg.ca (8.12.8/8.12.8) with ESMTP id hA56GPch010763; Wed, 5 Nov 2003 00:16:25 -0600 Received: from localhost (randy@localhost) by theoryx5.uwinnipeg.ca (8.12.8/8.12.8/Submit) with ESMTP id hA56GPwX010759; Wed, 5 Nov 2003 00:16:25 -0600 Date: Wed, 5 Nov 2003 00:16:25 -0600 (CST) From: Randy Kobes To: Stas Bekman cc: dev@perl.apache.org Subject: Re: [mp2] MP_HAVE_APR_LIBS? In-Reply-To: Message-ID: References: <3FA76C1C.6060702@stason.org> MIME-Version: 1.0 Content-Type: TEXT/PLAIN; charset=US-ASCII X-Spam-Rating: daedalus.apache.org 1.6.2 0/1000/N X-Spam-Rating: minotaur-2.apache.org 1.6.2 0/1000/N 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