# New Ticket Created by Will Coleda # Please include the string: [perl #39933] # in the subject line of all future correspondence about this issue. # <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=39933 >
In an effort to construct a test case for something else, I got this to bus error: .sub main :main $S0 = <<"END_PIR" .constant int foo = 1 END_PIR $P0 = compreg 'PIR' $P0($S0) .end -- Will "Coke" Coleda [EMAIL PROTECTED]