__END__
# NAME goto into foreach
no warnings 'deprecated';
goto f;
foreach(1){f:}
EXPECT
Can't "goto" into the middle of a foreach loop at - line 3.
########
# NAME goto into given
no warnings 'deprecated';
goto f;
CORE::given(1){f:}
EXPECT
given is experimental at - line 3.
Can't "goto" into a "given" block at - line 3.
########
# NAME goto from given topic expression
no warnings 'deprecated';
CORE::given(goto f){f:}
EXPECT
given is experimental at - line 2.
Can't "goto" into a "given" block at - line 2.
########
# NAME dump with computed label
no warnings 'deprecated';
my $label = "foo";
dump $label;
EXPECT
Can't find label foo at - line 3.
########
# NAME whereso outside given
use 5.01; no warnings 'experimental::smartmatch';
whereso(!defined){}
EXPECT
Can't leave "whereso" outside a loop block at - line 2.
