PATCH: B::Debug should show LOOP-specific fields

--- perl@9359/ext/B/B/Debug.pm  Tue Mar  6 02:04:29 2001
+++ perl-robin/ext/B/B/Debug.pm Thu Mar 29 19:46:58 2001
@@ -33,6 +33,16 @@
     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();

• PATCH: B::Debug should show LOOP-specific fields by Robin Houston
• Re: PATCH: B::Debug should show LOOP-specific fields by Jarkko Hietaniemi