Stop SvPVutf8 from forcing the POK flag

It was setting this even on magical variables, causing stringification
not to bother calling FETCH, because the POK flag means ‘yes, I’m a
bonified [sic] string, with nothing funny going on’.

1 files changed, 3 insertions, 1 deletions

diff --git a/sv.c b/sv.c
index f53ad12139..03c1874a8c 100644
--- a/sv.c
+++ b/sv.c
@@ -3062,7 +3062,9 @@ Perl_sv_2pvutf8(pTHX_ register SV *sv, STRLEN *const lp)
     if ((SvTHINKFIRST(sv) && !SvIsCOW(sv)) || isGV_with_GP(sv))
 	sv = sv_mortalcopy(sv);
     sv_utf8_upgrade(sv);
-    return lp ? SvPV(sv,*lp) : SvPV_nolen(sv);
+    if (SvGMAGICAL(sv)) SvFLAGS(sv) &= ~SVf_POK;
+    assert(SvPOKp(sv));
+    return lp ? SvPV_nomg(sv,*lp) : SvPV_nomg_nolen(sv);
 }