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