about summary refs log blame commit diff
path: root/t/t4018/perl-skip-end-of-heredoc
blob: c22d39b25670029dce59d4a6fd9f744f5b48d1e3 (plain) (tree)
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";
}