Return-Path: Delivered-To: apmail-perl-dev-archive@perl.apache.org Received: (qmail 25826 invoked by uid 500); 17 Apr 2001 22:08:42 -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 25602 invoked from network); 17 Apr 2001 22:08:36 -0000 X-Authentication-Warning: mako.covalent.net: dougm owned process doing -bs Date: Tue, 17 Apr 2001 15:01:23 -0700 (PDT) From: Doug MacEachern To: sterling cc: Bill.Melvin@esc.edu, dev@perl.apache.org, "William A. Rowe, Jr." Subject: Re: mod_perl.c:517: unterminated string or character constant In-Reply-To: Message-ID: MIME-Version: 1.0 Content-Type: TEXT/PLAIN; charset=US-ASCII X-Spam-Rating: h31.sny.collab.net 1.6.2 0/1000/N thanks, applied. On Mon, 12 Mar 2001, sterling wrote: > actually - with recent changes to the apache core, that patch doesn't work > any more. we're working on a real fix - but in the mean time this one may > as well be removed. > > > sterling > _____________________________________________________________________________ > > Index: src/modules/perl/mod_perl.c > =================================================================== > RCS file: /home/cvspublic/modperl/src/modules/perl/mod_perl.c,v > retrieving revision 1.135 > diff -u -r1.135 mod_perl.c > --- src/modules/perl/mod_perl.c 2001/02/16 23:30:27 1.135 > +++ src/modules/perl/mod_perl.c 2001/03/13 00:18:07 > @@ -509,18 +509,6 @@ > { > array_header *librefs; > > -#ifdef WIN32 > - // This is here to stop a crash when bringing down > - // a service. Apparently the dso is unloaded too early. > - // This if statement tests to see if we are running as a > - // service. apache does the same > - // see apache's isProcessService() in service.c > - if (AllocConsole()) { > - FreeConsole(); > - return; > - } > -#endif > - > librefs = xs_dl_librefs((pool *)data); > perl_shutdown(NULL, NULL); > unload_xs_so(librefs); > > > --------------------------------------------------------------------- > To unsubscribe, e-mail: dev-unsubscribe@perl.apache.org > For additional commands, e-mail: dev-help@perl.apache.org > --------------------------------------------------------------------- To unsubscribe, e-mail: dev-unsubscribe@perl.apache.org For additional commands, e-mail: dev-help@perl.apache.org