t/t4018/perl-skip-end-of-heredoc


1
2
3
4
5
6
7
8

sub RIGHTwithheredocument {
	print <<"EOF"
decoy here-doc
EOF
	# some lines of context
	# to pad it out
	print "ChangeMe\n";
}