+# goto
+
+SKIP: {
+ skip "goto to an uplevel'd stack frame does not work on perl 5\.6"
+ => 2 if "$]" < 5.008;
+
+ {
+ my $desc = 'values returned from goto';
+ local $@;
+ my $cb = sub { 'hello' };
+ my @ret = eval {
+ 'a', sub {
+ 'b', sub {
+ 'c', &uplevel(sub {
+ 'd', (goto $cb), 'w'
+ } => UP), 'x'
+ }->(), 'y'
+ }->(), 'z'
+ };
+ is $@, '', "$desc: did not croak";
+ is_deeply \@ret, [ qw<a b c hello x y z> ], "$desc: returned values";
+ }
+}
+