[perl #63158] wrong namespace in eval

[via RT]

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


Hi there!

This is works:

our $x = 42; eval('our $x; say $x;')

but this is not:

lass TP {
   has $.out is rw = '';
}

class M {
   method work {
       our $T = TP.new;
       eval('our $T; $T.out ~= "Yay";');
       say $T.out;
   }
}

my $t = M.new;
$t.work;


jabber logs:

Jonathan:  Oh!
I bet that the $T is being actually $M::T
And inside the eval we don't have the namespace correctly.
yes
module Foo { our $x = 42; eval('our $x; say $x;') }
}
oops
anyway, that explodes
Ticket welcome. :-)


Thank you!

Ilya Belikin aka Ihrd