Make chr() for values >127 to create utf8 when under utf8.

Subject: Re: uft8/chr()
Message-ID: <slrn8ocdud.19l.simon@justanother.perlhacker.org>

p4raw-id: //depot/perl@6475

1 files changed, 7 insertions, 1 deletions

diff --git a/t/pragma/utf8.t b/t/pragma/utf8.t
index 8db3d1a305..03f7a35d3b 100755
--- a/t/pragma/utf8.t
+++ b/t/pragma/utf8.t
@@ -10,7 +10,7 @@ BEGIN {
     }
 }
 
-print "1..65\n";
+print "1..67\n";
 
 my $test = 1;
 
@@ -289,3 +289,9 @@ sub ok_bytes {
     ok "\x{ab}" =~ /^\x{ab}$/, 1;
     $test++;					# 65
 }
+
+{
+    use utf8;
+    ok_bytes chr(0xe2), pack("C*", 0xc3, 0xa2);
+    $test++;                # 66
+}