[perl.git] branch blead, updated. v5.21.5-265-g0e61cc5

[Father Chrysostomos]

In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/0e61cc55e00054884ddd493095f714abdd722413?hp=5e8c3db2def60d3a01d6fa8c5dd318b662e5998a>

- Log -----------------------------------------------------------------
commit 0e61cc55e00054884ddd493095f714abdd722413
Author: Father Chrysostomos <spr...@cpan.org>
Date:   Thu Nov 6 22:41:46 2014 -0800

    Deparse Devel::Peek::Dump
    
    I’m not sure how or where to test this.  Maybe we should document this
    ‘accidental’ plug-in interface for B::Deparse and custom ops.
-----------------------------------------------------------------------

Summary of changes:
 ext/Devel-Peek/Peek.pm | 10 ++++++++++
 ext/Devel-Peek/Peek.xs |  2 +-
 2 files changed, 11 insertions(+), 1 deletion(-)

diff --git a/ext/Devel-Peek/Peek.pm b/ext/Devel-Peek/Peek.pm
index ae8df05..bd6cf6c 100644
--- a/ext/Devel-Peek/Peek.pm
+++ b/ext/Devel-Peek/Peek.pm
@@ -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__
 
diff --git a/ext/Devel-Peek/Peek.xs b/ext/Devel-Peek/Peek.xs
index e235d80..205b338 100644
--- a/ext/Devel-Peek/Peek.xs
+++ b/ext/Devel-Peek/Peek.xs
@@ -440,7 +440,7 @@ BOOT:
     assert(cv);
     cv_set_call_checker(cv, S_ck_dump, (SV *)cv);
 
-    XopENTRY_set(&my_xop, xop_name, "Dump");
+    XopENTRY_set(&my_xop, xop_name, "Devel_Peek_Dump");
     XopENTRY_set(&my_xop, xop_desc, "Dump");
     XopENTRY_set(&my_xop, xop_class, OA_BINOP);
     Perl_custom_op_register(aTHX_ S_pp_dump, &my_xop);

--
Perl5 Master Repository