In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/2096afc47576baa623939e9e084b606dc97f60d8?hp=2da760ceef1d2d90b3141bdeb239c7d7580be05a>
- Log ----------------------------------------------------------------- commit 2096afc47576baa623939e9e084b606dc97f60d8 Author: Rafael Garcia-Suarez <[email protected]> Date: Wed Sep 16 09:43:51 2009 +0200 Localize $@ and $! before loading a file in SWASHNEW This fixes a bug where a spurious error was reported from utf8_heavy. This been found by Salvador Ortiz Garcia who suggested to localize $@; I merely added $!. ----------------------------------------------------------------------- Summary of changes: lib/utf8_heavy.pl | 2 ++ 1 files changed, 2 insertions(+), 0 deletions(-) diff --git a/lib/utf8_heavy.pl b/lib/utf8_heavy.pl index ecdd95e..41a0662 100644 --- a/lib/utf8_heavy.pl +++ b/lib/utf8_heavy.pl @@ -197,6 +197,8 @@ sub SWASHNEW { return $found; } + local $@; + local $!; $list = do $file; die $@ if $@; } -- Perl5 Master Repository
