was: [ANNOUNCE] ExtUtils::MakeMaker 5.48_03

[perl5.git] / doop.c

diff --git a/doop.c b/doop.c
index 1a3e9fc..8b02034 100644 (file)
--- a/doop.c
+++ b/doop.c
@@ -697,6 +697,9 @@ 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);
     SvSETMAGIC(sv);
     if (do_taint)
@@ -1318,7 +1321,7 @@ Perl_do_kv(pTHX)
        }
 
        if (! SvTIED_mg((SV*)keys, PERL_MAGIC_tied))
-           i = (IV)HvKEYS(keys);
+           i = HvKEYS(keys);
        else {
            i = 0;
            /*SUPPRESS 560*/