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