summaryrefslogtreecommitdiff
path: root/lib/utf8_heavy.pl
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2002-05-02 22:26:38 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2002-05-02 22:26:38 +0000
commit86916d66ae9b2cd92f84db117225a0f42c73e651 (patch)
treef6c5ef3e62f21fd25956461b730d8467f8d065be /lib/utf8_heavy.pl
parent99a6b1f0987d0c61da40e4959c219c205f4e94f0 (diff)
downloadperl-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.pl4
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
##