This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Don’t allow name after our/state sub
[perl5.git] / t / lib / croak / toke
1 __END__
2 # NAME Unterminated here-doc in string eval
3 eval "<<foo"; die $@
4 EXPECT
5 Can't find string terminator "foo" anywhere before EOF at (eval 1) line 1.
6 ########
7 # NAME Unterminated here-doc in s/// string eval
8 eval "s//<<foo/e"; die $@
9 EXPECT
10 Can't find string terminator "foo" anywhere before EOF at (eval 1) line 1.
11 ########
12 # NAME Missing name in "my sub"
13 my sub;
14 EXPECT
15 Missing name in "my sub" at - line 1.
16 ########
17 # NAME Missing name in "our sub"
18 our sub;
19 EXPECT
20 Missing name in "our sub" at - line 1.
21 ########
22 # NAME Missing name in "state sub"
23 use 5.01;
24 state sub;
25 EXPECT
26 Missing name in "state sub" at - line 2.
27 ########
28 # NAME Unterminated delimiter for here document
29 <<"foo
30 EXPECT
31 Unterminated delimiter for here document at - line 1.