Make utf8::encode respect magic

[perl5.git] / universal.c

diff --git a/universal.c b/universal.c
index cb49e0b..676c39b 100644 (file)
--- a/universal.c
+++ b/universal.c
@@ -808,6 +808,7 @@ XS(XS_utf8_encode)
     if (items != 1)
        croak_xs_usage(cv, "sv");
     sv_utf8_encode(ST(0));
+    SvSETMAGIC(ST(0));
     XSRETURN_EMPTY;
 }