This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
UTF8 wasn't printing for PVMGs.
authorJarkko Hietaniemi <jhi@iki.fi>
Sat, 18 Aug 2001 03:22:42 +0000 (03:22 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Sat, 18 Aug 2001 03:22:42 +0000 (03:22 +0000)
p4raw-id: //depot/perl@11713

dump.c

diff --git a/dump.c b/dump.c
index c2f7746..4fb4c9d 100644 (file)
--- a/dump.c
+++ b/dump.c
@@ -994,7 +994,6 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo
     default:
        if (SvEVALED(sv))       sv_catpv(d, "EVALED,");
        if (SvIsUV(sv))         sv_catpv(d, "IsUV,");
-       if (SvUTF8(sv))         sv_catpv(d, "UTF8");
        break;
     case SVt_PVBM:
        if (SvTAIL(sv))         sv_catpv(d, "TAIL,");
@@ -1005,6 +1004,8 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo
                                sv_catpv(d, "TYPED,");
        break;
     }
+    if (SvUTF8(sv))
+        sv_catpv(d, "UTF8");
 
     if (*(SvEND(d) - 1) == ',')
        SvPVX(d)[--SvCUR(d)] = '\0';