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 (file)
--- 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);
        }
     }