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

diff --git a/samples/cx.pl b/samples/cx.pl
index 8717d39..69bef74 100755
--- a/samples/cx.pl
+++ b/samples/cx.pl
@@ -63,7 +63,7 @@ sub ifr {
 }
 
 my $code = \&wut;
-
+$code = sub { while (do { return 2, 3 }) { } };
 my $bd = B::Deparse->new();
 print STDERR $bd->coderef2text($code), "\n";