Sign in
code
/
git
/
59fcf746f5a6253b3c0a84a94ecd5cf1add56e3a
/
.
/
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"
;
}