[perl #126754] wrong "self" inside class definition inside EVAL inside class

[Brian S. Julin]

# New Ticket Created by  "Brian S. Julin" 
# Please include the string:  [perl #126754]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org/Ticket/Display.html?id=126754 >



Relatively recent regression:

(01:22:01 AM) skids: m: class A { method foo { EVAL "class GLOBAL::B \{ method 
bar \{ self.WHAT.say } }" } }; A.foo; EVAL "B.new.bar";
(01:22:01 AM) camelia: rakudo-moar a148bf: OUTPUT«(A)␤»
(01:22:09 AM) skids: star: class A { method foo { EVAL "class GLOBAL::B \{ 
method bar \{ self.WHAT.say } }" } }; A.foo; EVAL "B.new.bar";
(01:22:09 AM) camelia: star-m 2015.09: OUTPUT«(B)␤»
(01:22:22 AM) skids: ^^That is what broke Inline::Perl5 I believe.