From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 31 Oct 2001 02:08:27 +0000 (+0000)
Subject: Thinko in #12783.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d0e98d276e2cc7fdcdfbde4dabbc0843fb890ac7;p=p5sagit%2Fp5-mst-13.2.git

Thinko in #12783.

p4raw-id: //depot/perl@12784
---

diff --git a/sv.c b/sv.c
index 542de0d..c5511b0 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;