Patch: Apache::PerlRun -- oldwarn restored

[Honza Pazdziora <ad...@informatics.muni.cz>]

Hello,

I'm sending in patch for Apache::PerlRun that does the similar
thing that is already in Apache::Registry -- restores the $^W
to the previous value, so that the following script doesn't
"inherit" the $^W setting from the previous one. It's against
the file included in the mod_perl-1.21 dist.

--- Apache/PerlRun.pm.orig      Wed Feb 23 14:09:58 2000
+++ Apache/PerlRun.pm   Wed Feb 23 14:10:41 2000
@@ -127,8 +127,11 @@
 
     my $rc = OK;
     my $cv = \&{"$package\::handler"};
+
+    my $oldwarn = $^W;
     eval { $rc = &{$cv}($pr, @_) } if $pr->seqno;
     $pr->{status} = $rc;
+    $^W = $oldwarn;
 
     my $errsv = "";
     if($@) {

-- 
------------------------------------------------------------------------
 Honza Pazdziora | adelton@fi.muni.cz | http://www.fi.muni.cz/~adelton/
   .project: Perl, DBI, Oracle, MySQL, auth. WWW servers, MTB, Spain.
------------------------------------------------------------------------

Re: Patch: Apache::PerlRun -- oldwarn restored

[Doug MacEachern <do...@pobox.com>]

On Wed, 23 Feb 2000, Honza Pazdziora wrote:

> 
> Hello,
> 
> I'm sending in patch for Apache::PerlRun that does the similar
> thing that is already in Apache::Registry -- restores the $^W
> to the previous value, so that the following script doesn't
> "inherit" the $^W setting from the previous one. It's against
> the file included in the mod_perl-1.21 dist.

thanks!!