This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Disable lexsubs outside of feature.pm
[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 use feature 'lexical_subs'; my sub;
14 EXPECT
15 The lexical_subs feature is experimental at - line 1.
16 Missing name in "my sub" at - line 1.
17 ########
18 # NAME Missing name in "our sub"
19 use feature 'lexical_subs'; our sub;
20 EXPECT
21 The lexical_subs feature is experimental at - line 1.
22 Missing name in "our sub" at - line 1.
23 ########
24 # NAME Missing name in "state sub"
25 use 5.01; use feature 'lexical_subs';
26 state sub;
27 EXPECT
28 The lexical_subs feature is experimental at - line 1.
29 Missing name in "state sub" at - line 2.
30 ########
31 # NAME Unterminated delimiter for here document
32 <<"foo
33 EXPECT
34 Unterminated delimiter for here document at - line 1.