diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-08-18 12:11:14 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-08-18 12:11:14 +0000 |
| commit | 8b1981a6c4fcb68914e5a9c635d9471dbbe6f42a (patch) | |
| tree | ce9d86511c40b0e1116c763563254adc4cbd2323 /dump.c | |
| parent | 2483eea46d949f758e55f56d3610ffb2acf87711 (diff) | |
| download | perl-8b1981a6c4fcb68914e5a9c635d9471dbbe6f42a.tar.gz | |
UTF8 flag should be meaningful only when POK.
p4raw-id: //depot/perl@11716
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1004,7 +1004,7 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo sv_catpv(d, "TYPED,"); break; } - if (SvUTF8(sv)) + if (SvPOK(sv) && SvUTF8(sv)) sv_catpv(d, "UTF8"); if (*(SvEND(d) - 1) == ',') |