# New Ticket Created by Will Coleda
# Please include the string: [perl #37600]
# in the subject line of all future correspondence about this issue.
# <URL: https://rt.perl.org/rt3/Ticket/Display.html?id=37600 >
I dug through partcl to see where I could take advantage of the new
anywhere HEREDOCS, and found a case that didn't work.
.macro print(THING)
print .THING
.endm
.sub main
.print ('ok 1\n')
.print (<<'WHEE')
ok 2
WHEE
.end
I'd expect this to print "ok 1\nok 2\n", but it doesn't compile:
error:imcc:The opcode 'print' (print<0>) was not found. Check the
type and number of the arguments
in macro '.say' line 2
included from 'foo.pir' line 7
