Change 30705 by [EMAIL PROTECTED] on 2007/03/22 23:48:47
Integrate:
[ 30091]
Better dump reporting of "PVBM"s.
[ 30366]
Subject: [PATCH] dump.c: format fixes
From: [EMAIL PROTECTED] (Jarkko Hietaniemi)
Date: Tue, 20 Feb 2007 03:00:50 +0200 (EET)
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
... //depot/maint-5.8/perl/dump.c#80 integrate
Differences ...
==== //depot/maint-5.8/perl/dump.c#80 (text) ====
Index: perl/dump.c
--- perl/dump.c#79~30302~ 2007-02-14 14:00:02.000000000 -0800
+++ perl/dump.c 2007-03-22 16:48:47.000000000 -0700
@@ -1532,6 +1532,12 @@
if (nest < maxnest && (CvCLONE(sv) || CvCLONED(sv)))
do_sv_dump(level+1, file, (SV*)CvOUTSIDE(sv), nest+1, maxnest,
dumpops, pvlim);
break;
+ case SVt_PVBM:
+ Perl_dump_indent(aTHX_ level, file, " FLAGS = %u\n", (U8)BmFLAGS(sv));
+ Perl_dump_indent(aTHX_ level, file, " RARE = %u\n", (U8)BmRARE(sv));
+ Perl_dump_indent(aTHX_ level, file, " PREVIOUS = %"UVuf"\n",
(UV)BmPREVIOUS(sv));
+ Perl_dump_indent(aTHX_ level, file, " USEFUL = %"IVdf"\n",
(IV)BmUSEFUL(sv));
+ break;
case SVt_PVGV:
Perl_dump_indent(aTHX_ level, file, " NAME = \"%s\"\n", GvNAME(sv));
Perl_dump_indent(aTHX_ level, file, " NAMELEN = %"IVdf"\n",
(IV)GvNAMELEN(sv));
End of Patch.
