Sign in
googlers
/
jrn
/
git
/
6a53a59bf9986f99c1a8dd0f36e2b9d6033e89f2
/
.
/
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"
;
}