+check { 'a' .. 'z' } [ 'a' .. 'z' ], '26 const scalar implicit return';
+
+check { [ qw<A B C> ] } [ [ qw<A B C> ] ],'one array reference implicit return';
+
+my $cb = sub { 123 };
+my ($ret) = check { $cb } [ $cb ], 'one anonymous sub implicit return';
+is $ret->(), $cb->(), 'anonymous sub returned by uplevel still works';
+
+for my $run (1 .. 3) {
+ my ($cb) = sub {
+ uplevel {
+ my $id = 123;
+ sub { ++$id };
+ };
+ }->('dummy');
+ is $cb->(), 124, "near closure returned by uplevel still works";
+}
+