[perl #39988] [BUG] Exceptions + Vtable Methods

[via RT]

# New Ticket Created by  Matt Diephouse 
# Please include the string:  [perl #39988]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=39988 >


The example:

   .sub main :main
     $P0 = get_hll_global ['Foo'], 'load'
     $P0()
     $P0 = new 'Foo'
     push_eh catch
       $S0 = $P0
     clear_eh
     say "huh?"
     .return()

   catch:
     say "caught"
     .return()
   .end

   .namespace ['Foo']

   .sub load
     $P0 = newclass 'Foo'
   .end

   .sub __get_string :method
     $P0 = new .Exception
     throw $P0
   .end

Running this gives:

   caught
   No exception to pop.

It should only say "caught". I'm guessing (a) that this is a result  
of throwing the exception in a vtable method and (b) that this is  
causing the "attempt to access code outside of code segment" errors  
in Tcl.

--
Matt Diephouse