Fix a bug the handling of if (do { return if ; }) { ... }

[perl/modules/Sub-Nary.git] / samples / cx.pl

diff --git a/samples/cx.pl b/samples/cx.pl
index 69bef742f77521688e7da9e8f88f232822022682..8717d395ea41154cf06f4d477138397d0cfdc975 100755 (executable)
--- 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";