diff options
| author | Hugo van der Sanden <hv@crypt.org> | 2001-05-30 12:59:19 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-30 12:08:07 +0000 |
| commit | 04073e4ceb0fb04f5cbbda390bf49a087fb6969c (patch) | |
| tree | 6586a58829183f2b213d9e7c15bd1c2803f4e24a /lib/utf8_heavy.pl | |
| parent | 0c1c71f241ab034fc59d9d6483c8f8f70e144df6 (diff) | |
| download | perl-04073e4ceb0fb04f5cbbda390bf49a087fb6969c.tar.gz | |
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
Diffstat (limited to 'lib/utf8_heavy.pl')
| -rw-r--r-- | lib/utf8_heavy.pl | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/lib/utf8_heavy.pl b/lib/utf8_heavy.pl index 3ac4ef9b59..2327d3d818 100644 --- 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" |