From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 18 Aug 2001 03:22:42 +0000 (+0000)
Subject: UTF8 wasn't printing for PVMGs.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9fe74edeee952c534737f11a9cb0e134fbef1921;p=p5sagit%2Fp5-mst-13.2.git

UTF8 wasn't printing for PVMGs.

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

diff --git a/dump.c b/dump.c
index c2f7746..4fb4c9d 100644
--- 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';