From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 2 May 2002 22:26:38 +0000 (+0000)
Subject: Integrate #16353 from macperl;
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=86916d66ae9b2cd92f84db117225a0f42c73e651;p=p5sagit%2Fp5-mst-13.2.git

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..)
---

diff --git a/lib/utf8_heavy.pl b/lib/utf8_heavy.pl
index 72ef547..1839d21 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
 ##