diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-12-12 20:00:36 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-12-12 20:00:36 +0000 |
| commit | 7e107e90b7bd52c7fb110ac98da6bb7ab38e8959 (patch) | |
| tree | 2f74d88cc95a9dfb8f0815f2189d32d85e41c39e /ext | |
| parent | bd1e762a8ed1aa90a48d6e6d1207bfeab5a8092e (diff) | |
| download | perl-7e107e90b7bd52c7fb110ac98da6bb7ab38e8959.tar.gz | |
Whitespace and indentation fix in the output of B::Debug.
p4raw-id: //depot/perl@18298
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/B/B/Debug.pm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/ext/B/B/Debug.pm b/ext/B/B/Debug.pm index da8b1474f4..efc618ebc1 100644 --- a/ext/B/B/Debug.pm +++ b/ext/B/B/Debug.pm @@ -40,9 +40,9 @@ 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 + op_redoop 0x%x + op_nextop 0x%x + op_lastop 0x%x EOT } @@ -205,7 +205,7 @@ sub B::CV::debug { GV 0x%x FILE %s DEPTH %d - PADLIST 0x%x + PADLIST 0x%x OUTSIDE 0x%x OUTSIDE_SEQ %d EOT @@ -221,13 +221,13 @@ sub B::AV::debug { my(@array) = $av->ARRAY; print "\tARRAY\t\t(", join(", ", map("0x" . $$_, @array)), ")\n"; printf <<'EOT', scalar(@array), $av->MAX, $av->OFF, $av->AvFLAGS; - FILL %d + FILL %d MAX %d OFF %d AvFLAGS %d EOT } - + sub B::GV::debug { my ($gv) = @_; if ($done_gv{$$gv}++) { |