diff options
| author | Karl Williamson <public@khwilliamson.com> | 2011-12-13 21:16:50 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2011-12-14 10:56:57 -0700 |
| commit | ba74571dc531b3419632623813e96798a370393a (patch) | |
| tree | 860fc76336636fbbe272980398f951c6687b9872 /lib/locale.t | |
| parent | 50bb0127103ad0044e1c0072603c37391eacc078 (diff) | |
| download | perl-ba74571dc531b3419632623813e96798a370393a.tar.gz | |
locale.t: Don't destroy caller's $@
This bug was very hard for me to find. Leave the outside $@ untouched.
Diffstat (limited to 'lib/locale.t')
| -rw-r--r-- | lib/locale.t | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/locale.t b/lib/locale.t index a66810b54b..c2bc3d1c8b 100644 --- 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 } } |