Thinko in #12783.

p4raw-id: //depot/perl@12784

diff --git a/sv.c b/sv.c
index 542de0d..c5511b0 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -10377,7 +10377,7 @@ The PV of the sv is returned.
 char *
 Perl_sv_recode_to_utf8(pTHX_ SV *sv, SV *encoding)
 {
-     if (SvPOK(sv) && !SvUTF8(sv) && !SvROK(sv)) {
+     if (SvPOK(sv) && !SvUTF8(sv) && SvROK(encoding)) {
          SV *uni;
          STRLEN len;
          char *s;