via RT Matt Diephouse <[EMAIL PROTECTED]> wrote:
# New Ticket Created by Matt Diephouse # Please include the string: [perl #39597] # in the subject line of all future correspondence about this issue. # <URL: https://rt.perl.org/rt3/Ticket/Display.html?id=39597 >The following code in lines 108-110 of languages/tcl/src/class/ tclcommand.pir are giving parrot some trouble: inlined.emit(" if epoch != %0 goto dynamic_%1", epoch, label_num) inlined .= retval inlined.emit(" goto end_%0", label_num)
It looks like pbc_merge is the actual source of the trouble here. If I change languages/tcl/src/tclsh.pir to load the individual bytecode files instead of the merged file, it works as expected. -- matt diephouse http://matt.diephouse.com
