locale.t: Don't destroy caller's $@

This bug was very hard for me to find.  Leave the outside $@ untouched.

diff --git a/lib/locale.t b/lib/locale.t
index a66810b..c2bc3d1 100644 (file)
--- a/lib/locale.t
+++ b/lib/locale.t
@@ -75,6 +75,7 @@ sub ok {
 sub is_tainted { # hello, camel two.
     no warnings 'uninitialized' ;
     my $dummy;
+    local $@;
     not eval { $dummy = join("", @_), kill 0; 1 }
 }