From: Robin Houston <robin@cpan.org>
Date: Thu, 29 Mar 2001 20:47:56 +0000 (+0100)
Subject: PATCH: B::Debug should show LOOP-specific fields
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ee3e756d0633dc54b741d94098adc6d20a3f0e1d;p=p5sagit%2Fp5-mst-13.2.git

PATCH: B::Debug should show LOOP-specific fields
Message-ID: <20010329204756.A32042@puffinry.freeserve.co.uk>

p4raw-id: //depot/perl@9460
---

diff --git a/ext/B/B/Debug.pm b/ext/B/B/Debug.pm
index 1327591..71540a1 100644
--- a/ext/B/B/Debug.pm
+++ b/ext/B/B/Debug.pm
@@ -33,6 +33,16 @@ sub B::BINOP::debug {
     printf "\top_last\t\t0x%x\n", ${$op->last};
 }
 
+sub B::LOOP::debug {
+    my ($op) = @_;
+    $op->B::BINOP::debug();
+    printf <<'EOT', ${$op->redoop}, ${$op->nextop}, ${$op->lastop};
+       op_redoop       0x%x
+       op_nextop       0x%x
+       op_lastop       0x%x
+EOT
+}
+
 sub B::LOGOP::debug {
     my ($op) = @_;
     $op->B::UNOP::debug();