This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
pp.h: Make [TP]OPp and [TP]OPpx identical
[perl5.git] / t / lib / croak / pp_ctl
1 __END__
2 # NAME when outside given
3 use 5.01;
4 when(undef){}
5 EXPECT
6 Can't "when" outside a topicalizer at - line 2.
7 ########
8 # NAME default outside given
9 use 5.01;
10 default{}
11 EXPECT
12 Can't "default" outside a topicalizer at - line 2.