diff options
| author | Abhijit Menon-Sen <ams@wiw.org> | 2002-11-05 03:43:46 +0000 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2002-11-05 03:43:46 +0000 |
| commit | 34aa158557bf899117e749eb5a8375ffe870f5d0 (patch) | |
| tree | cb258c547a71a7e45c1a35a243349b250bcbf02c /dump.c | |
| parent | 107c23634640452662c18f6ae1ae0d2920a4cf3b (diff) | |
| download | perl-34aa158557bf899117e749eb5a8375ffe870f5d0.tar.gz | |
1. Update pp_ucfirst to enter the UTF-8 branch only if the first
character is UTF-8. (Copied from pp_lcfirst.)
2. sv_dump() should display FLAGS=...,UTF8 for both POK and pPOK.
p4raw-id: //depot/perl@18107
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1021,7 +1021,7 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo sv_catpv(d, "TYPED,"); break; } - if (SvPOK(sv) && SvUTF8(sv)) + if ((SvPOK(sv) || SvPOKp(sv)) && SvUTF8(sv)) sv_catpv(d, "UTF8"); if (*(SvEND(d) - 1) == ',') |