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

diff --git a/samples/cx.pl b/samples/cx.pl
index 14cb237..9143830 100755
--- a/samples/cx.pl
+++ b/samples/cx.pl
@@ -71,7 +71,7 @@ sub ifr {
 }
 
 my $code = \&wut;
-
+$code = sub { for (do { return 1, 2, 3 }) { } return 1, 2; };
 print STDERR $bd->coderef2text($code), "\n";
 
 B::Concise::walk_output(\*STDERR);