diff options
| author | Simon Cozens <simon@netthink.co.uk> | 2000-12-04 18:08:38 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-12-04 19:42:07 +0000 |
| commit | 32639b87b44a76d3d4075a51d86d52a309774c7f (patch) | |
| tree | f9d79c6511725229a44c73cae8f099ecb580d06b | |
| parent | da58a35d3e499cdd492619302eb044ac1841788f (diff) | |
| download | perl-32639b87b44a76d3d4075a51d86d52a309774c7f.tar.gz | |
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
| -rw-r--r-- | dump.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -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); } } |