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

diff --git a/samples/cx.pl b/samples/cx.pl
index 0b51a13..8717d39 100755
--- a/samples/cx.pl
+++ b/samples/cx.pl
@@ -7,6 +7,7 @@ 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);
 
@@ -42,7 +43,7 @@ sub wut2 {
  } elsif ($y) {
   sub { qr/wat/ }, %h;
  } elsif (@z) {
-  return [ ] 
+  return [ ];
  }
 }