This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
35c833925e2bcaedc72b0d07d7a2d66929b1b174
[perl5.git]
/
t
/
lib
/
croak
/
pp_ctl
1
__END__
2
# NAME dump with computed label
3
no warnings 'deprecated';
4
my $label = "foo";
5
dump $label;
6
EXPECT
7
Can't find label foo at - line 3.
8
########
9
# NAME when outside given
10
use 5.01; no warnings 'experimental::smartmatch';
11
when(!defined){}
12
EXPECT
13
Can't leave "when" outside a loop block at - line 2.