[perl #40608] key_append segfault

[Bob Rogers]

   From: Jonathan Worthington (via RT) <[EMAIL PROTECTED]>
   Date: Sat, 28 Oct 2006 13:32:25 -0700

   The following program segfaults Parrot:

     .sub main
         $P0 = new .Key
         push $P0, "test"
         push $P0, "test"
         print "not reached"
     .end

   Which sucks. :-(

I don't see a segfault in r15040 on x86 GNU/Linux, but it seems to be
using push_string().  Same error on r15009.  What are you running?

                                        -- Bob

------------------------------------------------------------------------
[EMAIL PROTECTED]> cat jw.pir 

.sub main :main
      $P0 = new .Key
      push $P0, "test"
      push $P0, "test"
      print "not reached"
.end
[EMAIL PROTECTED]> ./parrot jw.pir
push_string() not implemented in class 'Key'
current instr.: 'main' pc 3 (jw.pir:4)
[EMAIL PROTECTED]>