diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2009-09-16 09:43:51 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2009-09-16 09:46:27 +0200 |
| commit | 2096afc47576baa623939e9e084b606dc97f60d8 (patch) | |
| tree | bb2e0b18b2c8dd1316c371f7bfa59bb4a9c9aaa3 /lib/utf8_heavy.pl | |
| parent | 2da760ceef1d2d90b3141bdeb239c7d7580be05a (diff) | |
| download | perl-2096afc47576baa623939e9e084b606dc97f60d8.tar.gz | |
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 $!.
Diffstat (limited to 'lib/utf8_heavy.pl')
| -rw-r--r-- | 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 ecdd95e3cb..41a0662fd8 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 $@; } |