Return-Path: Delivered-To: apmail-modperl-cvs-archive@apache.org Received: (qmail 843 invoked by uid 500); 9 Apr 2002 02:59:20 -0000 Mailing-List: contact modperl-cvs-help@perl.apache.org; run by ezmlm Precedence: bulk list-help: list-unsubscribe: list-post: Reply-To: dev@perl.apache.org Delivered-To: mailing list modperl-cvs@apache.org Received: (qmail 830 invoked by uid 500); 9 Apr 2002 02:59:20 -0000 Delivered-To: apmail-modperl-2.0-cvs@apache.org Date: 9 Apr 2002 02:59:19 -0000 Message-ID: <20020409025919.98390.qmail@icarus.apache.org> From: dougm@apache.org To: modperl-2.0-cvs@apache.org Subject: cvs commit: modperl-2.0 Changes X-Spam-Rating: daedalus.apache.org 1.6.2 0/1000/N dougm 02/04/08 19:59:19 Modified: src/modules/perl modperl_util.c . Changes Log: fix ModPerl::Util::exit to clear $@ before calling Perl_croak Revision Changes Path 1.38 +1 -0 modperl-2.0/src/modules/perl/modperl_util.c Index: modperl_util.c =================================================================== RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_util.c,v retrieving revision 1.37 retrieving revision 1.38 diff -u -r1.37 -r1.38 --- modperl_util.c 29 Jan 2002 09:50:39 -0000 1.37 +++ modperl_util.c 9 Apr 2002 02:59:19 -0000 1.38 @@ -517,6 +517,7 @@ ENTER; SAVESPTR(PL_diehook); PL_diehook = Nullsv; + sv_setpv(ERRSV, ""); Perl_croak(aTHX_ NULL); } 1.7 +2 -0 modperl-2.0/Changes Index: Changes =================================================================== RCS file: /home/cvs/modperl-2.0/Changes,v retrieving revision 1.6 retrieving revision 1.7 diff -u -r1.6 -r1.7 --- Changes 9 Apr 2002 01:00:51 -0000 1.6 +++ Changes 9 Apr 2002 02:59:19 -0000 1.7 @@ -1,5 +1,7 @@ =item 1.99_02-dev +fix ModPerl::Util::exit to clear $@ before calling Perl_croak [dougm] + fix 'PerlOptions +GlobalRequest' when used within subrequests [dougm] get rid of some "subroutine redefined" warnings in ModPerl::MM that