Avoid pack/unpack to produce the binary form of a utf8 string
authorRafael Garcia-Suarez <rgs@consttype.org>
Wed, 30 Jul 2014 14:40:46 +0000 (16:40 +0200)
committerRafael Garcia-Suarez <rgs@consttype.org>
Wed, 30 Jul 2014 14:40:46 +0000 (16:40 +0200)
t/run/switchC.t

index b1a243c..f6aa868 100644 (file)
@@ -18,7 +18,7 @@ my $r;
 my $tmpfile = tempfile();
 my $scriptfile = tempfile();
 
-my $b = pack("C*", unpack("U0C*", pack("U",256)));
+my $b = chr 256; utf8::encode $b;
 
 $r = runperl( switches => [ '-CO', '-w' ],
              prog     => 'print chr(256)',