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 $!.

diff --git a/lib/utf8_heavy.pl b/lib/utf8_heavy.pl
index ecdd95e..41a0662 100644 (file)
--- 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 $@;
        }