Return-Path: Delivered-To: apmail-modperl-cvs-archive@apache.org Received: (qmail 84316 invoked by uid 500); 25 Mar 2002 01:59:03 -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 84305 invoked from network); 25 Mar 2002 01:59:03 -0000 Date: 25 Mar 2002 01:59:02 -0000 Message-ID: <20020325015902.11693.qmail@icarus.apache.org> From: dougm@apache.org To: modperl-cvs@apache.org Subject: cvs commit: modperl Changes X-Spam-Rating: daedalus.apache.org 1.6.2 0/1000/N dougm 02/03/24 17:59:02 Modified: lib/Apache PerlRun.pm . Changes Log: Apache::PerlRun will now localize $SIG{__{DIE,WARN}__} Revision Changes Path 1.38 +5 -0 modperl/lib/Apache/PerlRun.pm Index: PerlRun.pm =================================================================== RCS file: /home/cvs/modperl/lib/Apache/PerlRun.pm,v retrieving revision 1.37 retrieving revision 1.38 diff -u -r1.37 -r1.38 --- PerlRun.pm 11 Jul 2001 15:11:57 -0000 1.37 +++ PerlRun.pm 25 Mar 2002 01:59:02 -0000 1.38 @@ -280,6 +280,11 @@ $pr->set_script_name; $pr->chdir_file; my $line = $pr->mark_line; + + #make sure this hooks are restored to their original state + local $SIG{__DIE__} = $SIG{__DIE__}; + local $SIG{__WARN__} = $SIG{__WARN__}; + my %orig_inc = %INC; my $eval = join '', 'package ', 1.637 +3 -0 modperl/Changes Index: Changes =================================================================== RCS file: /home/cvs/modperl/Changes,v retrieving revision 1.636 retrieving revision 1.637 diff -u -r1.636 -r1.637 --- Changes 24 Mar 2002 23:01:33 -0000 1.636 +++ Changes 25 Mar 2002 01:59:02 -0000 1.637 @@ -10,6 +10,9 @@ =item 1.26_01-dev +Apache::PerlRun will now localize $SIG{__{DIE,WARN}__} +thanks to Jon Coulter for the spot + PERL5LIB support now properly unshifts paths into @INC rather than push [Tatsuhiko Miyagawa ]