From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 22 Jun 2003 15:46:50 +0000 (+0000)
Subject: For characters beyond the BMP the $bits will be undef,
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=485aafd95a0455dba277922a8e8f7c0a7adc192c;p=p5sagit%2Fp5-mst-13.2.git

For characters beyond the BMP the $bits will be undef,
which will cause utf8_heavy.pl noise (reported by Daniel Yacob,
analysis and fix from SADAHIRO Tomoyuki)

p4raw-id: //depot/perl@19835
---

diff --git a/lib/utf8_heavy.pl b/lib/utf8_heavy.pl
index d8c46b5..f4a0aaa 100644
--- a/lib/utf8_heavy.pl
+++ b/lib/utf8_heavy.pl
@@ -160,7 +160,7 @@ sub SWASHNEW {
     }
 
     my $extras;
-    my $bits;
+    my $bits = 0;
 
     my $ORIG = $list;
     if ($list) {