This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[perl #113684] Make redo/last/next/dump accept expr
[perl5.git] / t / lib / croak / pp_ctl
CommitLineData
fc7debfb 1__END__
1f039d60
FC
2# NAME dump with computed label
3my $label = "foo";
4dump $label;
5EXPECT
6Can't find label foo at - line 2.
7########
fc7debfb
FC
8# NAME when outside given
9use 5.01;
10when(undef){}
11EXPECT
12Can't "when" outside a topicalizer at - line 2.
13########
14# NAME default outside given
15use 5.01;
16default{}
17EXPECT
18Can't "default" outside a topicalizer at - line 2.