1 files changed, 1 insertions, 1 deletions
diff --git a/sv.c b/sv.c
index 542de0d5fe..c5511b0d7a 100644
--- 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;