From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 26 Feb 2005 09:33:30 +0000 (+0000)
Subject: SvUTF8 can be present on scalars other than PVs
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=86f0d186b5906b677cf64db5216b59d27c937db6;p=p5sagit%2Fp5-mst-13.2.git

SvUTF8 can be present on scalars other than PVs
(specifically references with overloaded stringification)

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

diff --git a/dump.c b/dump.c
index 5f0bef2..00f989f 100644
--- a/dump.c
+++ b/dump.c
@@ -1194,7 +1194,8 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo
 				sv_catpv(d, "TYPED,");
 	break;
     }
-    if ((SvPOK(sv) || SvPOKp(sv)) && SvUTF8(sv))
+    /* SVphv_SHAREKEYS is also 0x20000000 */
+    if ((type != SVt_PVHV) && SvUTF8(sv))
         sv_catpv(d, "UTF8");
 
     if (*(SvEND(d) - 1) == ',')