Change 11713 by jhi@alpha on 2001/08/18 03:22:42
UTF8 wasn't printing for PVMGs.
Affected files ...
... //depot/perl/dump.c#90 edit
Differences ...
==== //depot/perl/dump.c#90 (text) ====
Index: perl/dump.c
--- perl/dump.c.~1~ Fri Aug 17 21:30:06 2001
+++ perl/dump.c Fri Aug 17 21:30:06 2001
@@ -994,7 +994,6 @@
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 @@
sv_catpv(d, "TYPED,");
break;
}
+ if (SvUTF8(sv))
+ sv_catpv(d, "UTF8");
if (*(SvEND(d) - 1) == ',')
SvPVX(d)[--SvCUR(d)] = '\0';
End of Patch.
