summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Devel/Peek.pm
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2016-04-05 22:27:26 +0000
committerKarl Berry <karl@freefriends.org>2016-04-05 22:27:26 +0000
commitb56b320b5e2515160073fa1b469514002688fe11 (patch)
tree965a7100c5e45fca8ec803d22b8b6ce14fca4633 /Master/tlpkg/tlperl/lib/Devel/Peek.pm
parentd26c206452d2e285c3bbf949f34011e4a55fd8f9 (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.pm12
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__