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 | 416b0d798e43c190b0c901e9ec3e76f2dee782b3 (patch) | |
| tree | 6586a58829183f2b213d9e7c15bd1c2803f4e24a /lib | |
| parent | e0464f35df33df5753e492e0a685618fa8d4593b (diff) | |
| download | perl-416b0d798e43c190b0c901e9ec3e76f2dee782b3.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')
| -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" |