Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

[CVS ci] invalidate method cache in store_global

6 views
Skip to first unread message

Leopold Toetsch

unread,
Dec 7, 2004, 9:40:17 AM12/7/04
to Perl 6 Internals
If a name is stored into a namespace that starts with two underscores,
the method cache is invalidated now.

The follwing program runs now as expected:

.sub main @MAIN
.local pmc o, cl
newclass cl, "Foo"
subclass cl, cl, "Bar"
$I0 = typeof cl
o = new $I0
print o
$P0 = global "ok2"
store_global "Bar", "__get_string", $P0
print o
.end
.sub ok2
.return("ok 2\n")
.end
.namespace [ "Foo" ]
.sub __get_string
.return("ok 1\n")
.end

leo

0 new messages