From 6ee35fb7e604a038209f7db33f1e4817a38d5c05 Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 16 Aug 2001 11:46:02 +0000
Subject: Fix for 20010407.008 sprintf removes utf8-ness.

p4raw-id: //depot/perl@11691
---
 t/op/misc.t | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

(limited to 't/op/misc.t')

diff --git a/t/op/misc.t b/t/op/misc.t
index e7f1623a28..e55e18a0a2 100755
--- a/t/op/misc.t
+++ b/t/op/misc.t
@@ -724,9 +724,14 @@ sub DESTROY {
 EXPECT
 Bar=ARRAY(0x...)
 ########
-printf "%x %x", unpack "U*", sprintf "\x{1234}%s", "\x{5678}"
-EXPECT
-1234 5678
+# 20010407.008 sprintf removes utf8-ness
+$a = sprintf "\x{1234}";
+printf "%x %d\n", unpack("U*", $a), length($a);
+$a = sprintf "\x{1234}%s", "\x{5678}";
+printf "%x %x %d\n", unpack("U*", $a), length($a);
+EXPECT
+1234 1
+1234 5678 2
 ########
 # keep this last - doesn't seem to work otherwise?
 eval "a.b.c.d.e.f;sub"
-- 
cgit v1.2.1