[perl5.git] / t / lib / croak / toke

__END__
# NAME Unterminated here-doc in string eval
eval "<<foo"; die $@
EXPECT
Can't find string terminator "foo" anywhere before EOF at (eval 1) line 1.
########
# NAME Unterminated here-doc in s/// string eval
eval "s//<<foo/e"; die $@
EXPECT
Can't find string terminator "foo" anywhere before EOF at (eval 1) line 1.
########
# NAME Missing name in "my sub"
my sub;
EXPECT
Missing name in "my sub" at - line 1.
########
# NAME Unterminated delimiter for here document
<<"foo
EXPECT
Unterminated delimiter for here document at - line 1.
Commit	Line	Data
ca8ffed2	1	__END__
5af08aed FC	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	########
ca8ffed2 FC	12	# NAME Missing name in "my sub"
	13	my sub;
	14	EXPECT
	15	Missing name in "my sub" at - line 1.
6f2d7fc9 FC	16	########
	17	# NAME Unterminated delimiter for here document
	18	<<"foo
	19	EXPECT
	20	Unterminated delimiter for here document at - line 1.