X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=samples%2Fcx.pl;h=fec95776d182467e8d12892d6db5414f58ad0747;hb=84483a1d32823197ca6c6dcb5e839e8d5650e9e4;hp=69bef742f77521688e7da9e8f88f232822022682;hpb=fd35681c6f0a1e84d407dbe4fcc7a3c25e4d8851;p=perl%2Fmodules%2FSub-Nary.git

diff --git a/samples/cx.pl b/samples/cx.pl
index 69bef74..fec9577 100755
--- a/samples/cx.pl
+++ b/samples/cx.pl
@@ -7,7 +7,6 @@ use lib qw{blib/lib blib/arch};
 use B::Deparse;
 use B::Concise;
 use Sub::Nary;
-$Sub::Nary::DEBUG = 1;
 
 my ($x, $y, @z, %h);
 
@@ -63,7 +62,7 @@ sub ifr {
 }
 
 my $code = \&wut;
-$code = sub { while (do { return 2, 3 }) { } };
+
 my $bd = B::Deparse->new();
 print STDERR $bd->coderef2text($code), "\n";