Re: [ID 20010528.004] dual bug under utf8: $@ has UTF8 flag and \s+ does not match

Message-Id: <200105301059.LAA03182@crypt.compulink.co.uk>

localizing $@ has unfortunate semantics - if you die past
a local $@, the die message is lost.

p4raw-id: //depot/perl@10310

diff --git a/lib/utf8_heavy.pl b/lib/utf8_heavy.pl
index 3ac4ef9..2327d3d 100644 (file)
--- a/lib/utf8_heavy.pl
+++ b/lib/utf8_heavy.pl
@@ -36,8 +36,6 @@ sub SWASHNEW {
     }
 
     {
-       local $@;
-
        $list ||= ($caller ne 'main' && eval { $caller->$type(); })
            || do "$file.pl"
            || do "$encoding/$file.pl"