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

   1 sub RIGHTwithheredocument {
   2         print <<"EOF"
   3 decoy here-doc
   4 EOF
   5         # some lines of context
   6         # to pad it out
   7         print "ChangeMe\n";
   8 }