# New Ticket Created by Will Coleda # Please include the string: [perl #57260] # in the subject line of all future correspondence about this issue. # <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=57260 >
Tripped over these trying to run some spec tests for Tcl. I have no idea what $S0 should have after the invocation, but the current segfaults are undoubtedly incorrect. .sub boom1 $P0 = new 'ResizablePMCArray' push $P0, 65 push $P0, 65 push $P0, 65 push $P0, 65 push $P0, 65 push $P0, 65 push $P0, 3 push $P0, 65 push $P0, -4 push $P0, 65 $S0 = sprintf "|%c|%0c|%-1c|%1c|%-6c|%6c|%*c|%*c|", $P0 .end -- .sub boom2 $P0 = new 'ResizablePMCArray' push $P0, 0xa2 push $P0, 0x4e push $P0, 0x25a push $P0, 0xc3 push $P0, 0xff08 push $P0, 0 push $P0, 3 push $P0, 0x6575 push $P0, -4 push $P0, 0x4e4f $S0 = sprintf "|%c|%0c|%-1c|%1c|%-6c|%6c|%*c|%*c|" , $P0 .end -- Will "Coke" Coleda
