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 (file)
--- 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) {