projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
af903f6
)
UTF8 wasn't printing for PVMGs.
author
Jarkko Hietaniemi
<jhi@iki.fi>
Sat, 18 Aug 2001 03:22:42 +0000
(
03:22
+0000)
committer
Jarkko Hietaniemi
<jhi@iki.fi>
Sat, 18 Aug 2001 03:22:42 +0000
(
03:22
+0000)
p4raw-id: //depot/perl@11713
dump.c
patch
|
blob
|
history
diff --git
a/dump.c
b/dump.c
index
c2f7746
..
4fb4c9d
100644
(file)
--- a/
dump.c
+++ b/
dump.c
@@
-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';