X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=samples%2Fcx.pl;h=9143830b34219d268e0bbd06992b27496b11c4ba;hb=refs%2Fheads%2Fexitdie;hp=0b51a13399eb7c51e3ae63e22693cdf34d2fd44c;hpb=4b846088d0ffe4f979b145ec2af821922bd5c7af;p=perl%2Fmodules%2FSub-Nary.git

diff --git a/samples/cx.pl b/samples/cx.pl
index 0b51a13..9143830 100755
--- a/samples/cx.pl
+++ b/samples/cx.pl
@@ -4,7 +4,16 @@ use strict;
 use warnings;
 
 use lib qw{blib/lib blib/arch};
-use B::Deparse;
+
+my $bd;
+BEGIN {
+ if (eval "use B::RecDeparse; 1") {
+  $bd = B::RecDeparse->new;
+ } else {
+  use B::Deparse;
+  $bd = B::Deparse->new;
+ }
+}
 use B::Concise;
 use Sub::Nary;
 
@@ -42,7 +51,7 @@ sub wut2 {
  } elsif ($y) {
   sub { qr/wat/ }, %h;
  } elsif (@z) {
-  return [ ] 
+  return [ ];
  }
 }
 
@@ -62,8 +71,7 @@ sub ifr {
 }
 
 my $code = \&wut;
-
-my $bd = B::Deparse->new();
+$code = sub { for (do { return 1, 2, 3 }) { } return 1, 2; };
 print STDERR $bd->coderef2text($code), "\n";
 
 B::Concise::walk_output(\*STDERR);