This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Dump didn't display CVf_ISXSUB flag
authorDavid Mitchell <davem@iabyn.com>
Thu, 29 Jul 2010 18:11:32 +0000 (19:11 +0100)
committerDavid Mitchell <davem@iabyn.com>
Thu, 29 Jul 2010 18:11:32 +0000 (19:11 +0100)
dump.c
ext/Devel-Peek/t/Peek.t

diff --git a/dump.c b/dump.c
index 691588f..76f276e 100644 (file)
--- a/dump.c
+++ b/dump.c
@@ -1500,7 +1500,8 @@ const struct flag_to_name cv_flags_names[] = {
     {CVf_LVALUE, "LVALUE,"},
     {CVf_METHOD, "METHOD,"},
     {CVf_WEAKOUTSIDE, "WEAKOUTSIDE,"},
-    {CVf_CVGV_RC, "CVGV_RC,"}
+    {CVf_CVGV_RC, "CVGV_RC,"},
+    {CVf_ISXSUB, "ISXSUB,"}
 };
 
 const struct flag_to_name hv_flags_names[] = {
index 1fb1a5d..83e365a 100644 (file)
@@ -571,7 +571,7 @@ do_test(23,
   RV = $ADDR
   SV = PVCV\\($ADDR\\) at $ADDR
     REFCNT = (2)
-    FLAGS = \\(POK,pPOK,CONST\\)
+    FLAGS = \\(POK,pPOK,CONST,ISXSUB\\)
     IV = 0                                     # $] < 5.009
     NV = 0                                     # $] < 5.009
     PROTOTYPE = ""