From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 18 Aug 2001 12:11:14 +0000 (+0000)
Subject: UTF8 flag should be meaningful only when POK.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8b1981a6c4fcb68914e5a9c635d9471dbbe6f42a;p=p5sagit%2Fp5-mst-13.2.git

UTF8 flag should be meaningful only when POK.

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

diff --git a/dump.c b/dump.c
index 4fb4c9d..6729db8 100644
--- a/dump.c
+++ b/dump.c
@@ -1004,7 +1004,7 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo
 				sv_catpv(d, "TYPED,");
 	break;
     }
-    if (SvUTF8(sv))
+    if (SvPOK(sv) && SvUTF8(sv))
         sv_catpv(d, "UTF8");
 
     if (*(SvEND(d) - 1) == ',')