This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Andreas is busy :-)
authorJarkko Hietaniemi <jhi@iki.fi>
Sat, 12 Jan 2002 05:11:20 +0000 (05:11 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Sat, 12 Jan 2002 05:11:20 +0000 (05:11 +0000)
p4raw-id: //depot/perl@14206

doop.c
t/op/unisprintf.t

diff --git a/doop.c b/doop.c
index 0c7abf4..8b02034 100644 (file)
--- a/doop.c
+++ b/doop.c
@@ -697,6 +697,7 @@ Perl_do_sprintf(pTHX_ SV *sv, I32 len, SV **sarg)
     char *pat = SvPV(*sarg, patlen);
     bool do_taint = FALSE;
 
+    SvUTF8_off(sv);
     if (DO_UTF8(*sarg))
         SvUTF8_on(sv);
     sv_vsetpvfn(sv, pat, patlen, Null(va_list*), sarg + 1, len - 1, &do_taint);
index 5c9bbb0..3c5f574 100644 (file)
@@ -6,7 +6,7 @@ BEGIN {
     require "test.pl";
 }
 
-plan tests => 23;
+plan tests => 25;
 
 $a = "B\x{fc}f";
 $b = "G\x{100}r";
@@ -124,3 +124,16 @@ $c = 0x200;
     is((sprintf "%x %x %d", unpack("U*", $a), length($a)), "1234 5678 2",
        '\x{1234}%s \x{5678}');
 }
+
+{
+    # check that utf8ness doesn't "accumulate"
+
+    my $w = "w\x{fc}";
+    my $sprintf;
+
+    $sprintf = sprintf "%s%s", $w, "$w\x{100}";
+    is(substr($sprintf,0,2), $w, "utf8 echo");
+
+    $sprintf = sprintf "%s%s", $w, "$w\x{100}";    
+    is(substr($sprintf,0,2), $w, "utf8 echo echo");
+}