Change 32752 by [EMAIL PROTECTED] on 2007/12/28 11:27:10
Dump the REGEXP member of SVt_REGEXP.
Affected files ...
... //depot/perl/dump.c#286 edit
... //depot/perl/ext/Devel/Peek/t/Peek.t#33 edit
Differences ...
==== //depot/perl/dump.c#286 (text) ====
Index: perl/dump.c
--- perl/dump.c#285~32751~ 2007-12-28 01:59:06.000000000 -0800
+++ perl/dump.c 2007-12-28 03:27:10.000000000 -0800
@@ -1590,6 +1590,10 @@
else
Perl_dump_indent(aTHX_ level, file, " PV = 0\n");
}
+ if (type == SVt_REGEXP) {
+ Perl_dump_indent(aTHX_ level, file, " REGEXP = 0x%"UVxf"\n",
+ PTR2UV(((struct xregexp *)SvANY(sv))->xrx_regexp));
+ }
if (type >= SVt_PVMG) {
if (type == SVt_PVMG && SvPAD_OUR(sv)) {
HV * const ost = SvOURSTASH(sv);
==== //depot/perl/ext/Devel/Peek/t/Peek.t#33 (text) ====
Index: perl/ext/Devel/Peek/t/Peek.t
--- perl/ext/Devel/Peek/t/Peek.t#32~32751~ 2007-12-28 01:59:06.000000000
-0800
+++ perl/ext/Devel/Peek/t/Peek.t 2007-12-28 03:27:10.000000000 -0800
@@ -287,7 +287,8 @@
FLAGS = \\(\\)
IV = 0
NV = 0
- PV = 0');
+ PV = 0
+ REGEXP = $ADDR');
} else {
do_test(15,
qr(tic),
End of Patch.
