A potential recursion breaker.

p4raw-id: //depot/perl@12931

diff --git a/sv.c b/sv.c
index 19ce50a..4045928 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -10407,7 +10407,7 @@ Perl_sv_recode_to_utf8(pTHX_ SV *sv, SV *encoding)
          SPAGAIN;
          uni = POPs;
          PUTBACK;
-         s = SvPVutf8(uni, len);
+         s = SvPV(uni, len);
          if (s != SvPVX(sv)) {
               SvGROW(sv, len);
               Move(s, SvPVX(sv), len, char);