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