X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FSub-Nary.git;a=blobdiff_plain;f=samples%2Fcx.pl;h=3289c8dedce3708072a1428b4886764ce0424f6d;hp=8717d395ea41154cf06f4d477138397d0cfdc975;hb=HEAD;hpb=3271ef4bff5871bc6aa2d90537f97f177cbacc2a

diff --git a/samples/cx.pl b/samples/cx.pl
index 8717d39..3289c8d 100755
--- a/samples/cx.pl
+++ b/samples/cx.pl
@@ -3,11 +3,19 @@
 use strict;
 use warnings;
 
-use lib qw{blib/lib blib/arch};
-use B::Deparse;
+use lib qw<blib/lib blib/arch>;
+
+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;
-$Sub::Nary::DEBUG = 1;
 
 my ($x, $y, @z, %h);
 
@@ -64,7 +72,6 @@ sub ifr {
 
 my $code = \&wut;
 
-my $bd = B::Deparse->new();
 print STDERR $bd->coderef2text($code), "\n";
 
 B::Concise::walk_output(\*STDERR);