Extend the effect of the encoding pragma to chr() and ord().

TODO: regex literals, reentrancy problems with the utf8
and charnames pragmas.

p4raw-id: //depot/perl@12790

1 files changed, 1 insertions, 1 deletions

diff --git a/sv.c b/sv.c
index 553267a853..afd2aadf3b 100644
--- a/sv.c
+++ b/sv.c
@@ -10378,7 +10378,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(encoding)) {
+     if (SvPOK(sv) && !DO_UTF8(sv) && SvROK(encoding)) {
 	  SV *uni;
 	  STRLEN len;
 	  char *s;