diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-08-18 03:22:42 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-08-18 03:22:42 +0000 |
| commit | 9fe74edeee952c534737f11a9cb0e134fbef1921 (patch) | |
| tree | 5031b93805bd24696656b64bc810ab2b4d9e6f99 /dump.c | |
| parent | af903f693e49116b2e364fd529103fa436976640 (diff) | |
| download | perl-9fe74edeee952c534737f11a9cb0e134fbef1921.tar.gz | |
UTF8 wasn't printing for PVMGs.
p4raw-id: //depot/perl@11713
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -994,7 +994,6 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo default: if (SvEVALED(sv)) sv_catpv(d, "EVALED,"); if (SvIsUV(sv)) sv_catpv(d, "IsUV,"); - if (SvUTF8(sv)) sv_catpv(d, "UTF8"); break; case SVt_PVBM: if (SvTAIL(sv)) sv_catpv(d, "TAIL,"); @@ -1005,6 +1004,8 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo sv_catpv(d, "TYPED,"); break; } + if (SvUTF8(sv)) + sv_catpv(d, "UTF8"); if (*(SvEND(d) - 1) == ',') SvPVX(d)[--SvCUR(d)] = '\0'; |