diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-02 22:26:38 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-02 22:26:38 +0000 |
commit | 86916d66ae9b2cd92f84db117225a0f42c73e651 (patch) | |
tree | f6c5ef3e62f21fd25956461b730d8467f8d065be /lib/utf8_heavy.pl | |
parent | 99a6b1f0987d0c61da40e4959c219c205f4e94f0 (diff) | |
download | perl-86916d66ae9b2cd92f84db117225a0f42c73e651.tar.gz |
Integrate #16353 from macperl;
"fix" for utf8_heavy.pl, lexical UTF8 var crashed
in test 92 of run/fresh_perl.t on MacOS
(as pudge rightfully points out, this is voodoo
programming at it best, the real bug is somewhere else,
now we just happened to shake the chicken the right way)
p4raw-id: //depot/perl@16355
p4raw-integrated: from //depot/macperl@16354 'merge in'
lib/utf8_heavy.pl (@16123..)
Diffstat (limited to 'lib/utf8_heavy.pl')
-rw-r--r-- | lib/utf8_heavy.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/utf8_heavy.pl b/lib/utf8_heavy.pl index 72ef54771d..1839d2144f 100644 --- a/lib/utf8_heavy.pl +++ b/lib/utf8_heavy.pl @@ -6,10 +6,10 @@ sub DEBUG () { 0 } sub DESTROY {} -sub croak { require Carp; Carp::croak(@_) } - my %Cache; +sub croak { require Carp; Carp::croak(@_) } + ## ## "SWASH" == "SWATCH HASH". A "swatch" is a swatch of the Unicode landscape ## |