(Replaced by #8448) More op_children traces (cleanup of #8442).

p4raw-id: //depot/perl@8445

diff --git a/ext/B/B/Debug.pm b/ext/B/B/Debug.pm
index 1327591..2ae1cd3 100644 (file)
--- a/ext/B/B/Debug.pm
+++ b/ext/B/B/Debug.pm
@@ -42,7 +42,7 @@ sub B::LOGOP::debug {
 sub B::LISTOP::debug {
     my ($op) = @_;
     $op->B::BINOP::debug();
-    printf "\top_children\t%d\n", $op->children;
+    printf "\top_last\t\t0x%x\n", ${$op->last};
 }
 
 sub B::PMOP::debug {