From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 15 Jan 2001 20:28:48 +0000 (+0000)
Subject: (Replaced by #8448)  More op_children traces (cleanup of #8442).
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0975d7ef2512b23b01c9844ea5f03a9514497fb5;p=p5sagit%2Fp5-mst-13.2.git

(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
--- 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 {