diff options
| -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(); |