Re: [PATCH B::Deparse] fix string uninterpretation

[p5sagit/p5-mst-13.2.git] / ext / B / B.xs

diff --git a/ext/B/B.xs b/ext/B/B.xs
index 39b579f..35e3233 100644 (file)
--- a/ext/B/B.xs
+++ b/ext/B/B.xs
@@ -911,6 +911,7 @@ SvPV(sv)
     CODE:
        ST(0) = sv_newmortal();
        sv_setpvn(ST(0), SvPVX(sv), SvCUR(sv));
+       SvFLAGS(ST(0)) |= SvUTF8(sv);
 
 STRLEN
 SvLEN(sv)