diff options
| author | Robin Houston <robin@cpan.org> | 2001-05-10 02:02:08 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-09 23:09:53 +0000 |
| commit | 3267896c2a355f0459fb95ce88d4e63144105be5 (patch) | |
| tree | e24459a9c1bb8482b5d0f0604dbf54e713ed25c4 | |
| parent | f608e45298e0c3869f8348449766ce548e5d678d (diff) | |
| download | perl-3267896c2a355f0459fb95ce88d4e63144105be5.tar.gz | |
Show string for PVOP, and referent for RV
Message-ID: <20010510010208.A18200@penderel>
p4raw-id: //depot/perl@10063
| -rw-r--r-- | ext/B/B/Debug.pm | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/ext/B/B/Debug.pm b/ext/B/B/Debug.pm index 049195b423..c69bfbfbf5 100644 --- a/ext/B/B/Debug.pm +++ b/ext/B/B/Debug.pm @@ -90,7 +90,7 @@ sub B::SVOP::debug { sub B::PVOP::debug { my ($op) = @_; $op->B::OP::debug(); - printf "\top_pv\t\t0x%x\n", $op->pv; + printf "\top_pv\t\t%s\n", cstring($op->pv); } sub B::PADOP::debug { @@ -127,6 +127,15 @@ sub B::SV::debug { EOT } +sub B::RV::debug { + my ($rv) = @_; + B::SV::debug($rv); + printf <<'EOT', ${$rv->RV}; + RV 0x%x +EOT + $rv->RV->debug; +} + sub B::PV::debug { my ($sv) = @_; $sv->B::SV::debug(); |