From: Simon Cozens <simon@netthink.co.uk>
Date: Mon, 4 Dec 2000 18:08:38 +0000 (+0000)
Subject: Trivial dump.c feature
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=32639b87b44a76d3d4075a51d86d52a309774c7f;p=p5sagit%2Fp5-mst-13.2.git

Trivial dump.c feature
Message-ID: <20001204180838.A5541@pembro33.pmb.ox.ac.uk>

Show whether a constant is UTF-8.

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

diff --git a/dump.c b/dump.c
index cffbc44..8bb4370 100644
--- a/dump.c
+++ b/dump.c
@@ -275,6 +275,8 @@ Perl_sv_peek(pTHX_ SV *sv)
 	    if (SvOOK(sv))
 		Perl_sv_catpvf(aTHX_ t, "[%s]", pv_display(tmp, SvPVX(sv)-SvIVX(sv), SvIVX(sv), 0, 127));
 	    Perl_sv_catpvf(aTHX_ t, "%s)", pv_display(tmp, SvPVX(sv), SvCUR(sv), SvLEN(sv), 127));
+	    if (SvUTF8(sv))
+		Perl_sv_catpvf(aTHX_ t, " [UTF8]"); 
 	    SvREFCNT_dec(tmp);
 	}
     }