You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by do...@apache.org on 2002/03/25 02:59:02 UTC
cvs commit: modperl Changes
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 <mi...@edge.co.jp>]