perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@apache.org
Subject cvs commit: modperl Changes
Date Mon, 25 Mar 2002 01:59:02 GMT
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 <miyagawa@edge.co.jp>]
   
  
  
  

Mime
View raw message