diff options
author | Karl Berry <karl@freefriends.org> | 2016-04-05 22:27:26 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2016-04-05 22:27:26 +0000 |
commit | b56b320b5e2515160073fa1b469514002688fe11 (patch) | |
tree | 965a7100c5e45fca8ec803d22b8b6ce14fca4633 /Master/tlpkg/tlperl/lib/Devel/Peek.pm | |
parent | d26c206452d2e285c3bbf949f34011e4a55fd8f9 (diff) |
tlperl 5.22.1 from siep
git-svn-id: svn://tug.org/texlive/trunk@40252 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Devel/Peek.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Devel/Peek.pm | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/Master/tlpkg/tlperl/lib/Devel/Peek.pm b/Master/tlpkg/tlperl/lib/Devel/Peek.pm index 731dc111176..bbea3cd4be6 100644 --- a/Master/tlpkg/tlperl/lib/Devel/Peek.pm +++ b/Master/tlpkg/tlperl/lib/Devel/Peek.pm @@ -3,7 +3,7 @@ package Devel::Peek; -$VERSION = '1.16'; +$VERSION = '1.22'; $XS_VERSION = $VERSION; $VERSION = eval $VERSION; @@ -64,6 +64,16 @@ sub debug_flags (;$) { $out } +sub B::Deparse::pp_Devel_Peek_Dump { + my ($deparse,$op,$cx) = @_; + my @kids = $deparse->deparse($op->first, 6); + my $sib = $op->first->sibling; + if (ref $sib ne 'B::NULL') { + push @kids, $deparse->deparse($sib, 6); + } + return "Devel::Peek::Dump(" . join(", ", @kids) . ")"; +} + 1; __END__ |