# New Ticket Created by Paul Cochrane # Please include the string: [perl #48166] # in the subject line of all future correspondence about this issue. # <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=48166 >
In languages/tcl/src/pmc/tclstring.pmc:get_list() there is the todo item: /* * XXX This prevents a segfault; retval gets claimed before it * it is used below without this register. This shouldn't happen */ Parrot_register_pmc(INTERP, retval); Having to set the register is unnecessary, and should be removed. Before this happens, however, the underlying issue needs to be corrected.