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
1 __END__
2 # NAME dump with computed label
3 my $label = "foo";
4 dump $label;
5 EXPECT
6 Can't find label foo at - line 2.
7 ########
8 # NAME when outside given
9 use 5.01;
10 when(undef){}
11 EXPECT
12 Can't "when" outside a topicalizer at - line 2.
13 ########
14 # NAME default outside given
15 use 5.01;
16 default{}
17 EXPECT
18 Can't "default" outside a topicalizer at - line 2.