gnu/usr.bin/perl/t/lib/croak/pp_ctl


1
2
3
4
5
6
7
8
9
10
11
12

__END__
# NAME when outside given
use 5.01;
when(undef){}
EXPECT
Can't "when" outside a topicalizer at - line 2.
########
# NAME default outside given
use 5.01;
default{}
EXPECT
Can't "default" outside a topicalizer at - line 2.