Sign in
code
/
git
/
07f25ad8b235c2682a36ee76d59734ec3f08c413
/
.
/
t
/
t4018
/
perl-skip-end-of-heredoc
blob: c22d39b25670029dce59d4a6fd9f744f5b48d1e3 [
file
] [
log
] [
blame
]
sub
RIGHTwithheredocument
{
print
<<
"EOF"
decoy here
-
doc
EOF
# some lines of context
# to pad it out
print
"ChangeMe\n"
;
}