summaryrefslogtreecommitdiff
path: root/sv.c
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2001-10-31 02:08:27 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2001-10-31 02:08:27 +0000
commitd0e98d276e2cc7fdcdfbde4dabbc0843fb890ac7 (patch)
tree757cd9aed6acbcf20a4bcbacb8461f50cfa3dbe9 /sv.c
parent5d170f3a2f1aec382dd58400cc2a2fe1d00859b9 (diff)
downloadperl-d0e98d276e2cc7fdcdfbde4dabbc0843fb890ac7.tar.gz
Thinko in #12783.
p4raw-id: //depot/perl@12784
Diffstat (limited to 'sv.c')
-rw-r--r--sv.c2
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;