Have a crack at making Proxy more robust for tadzik++.

rakudo · Mar 1, 2012 · 93603c6 · 93603c6
1 parent 28f3d64
commit 93603c6
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/Perl6/Metamodel/BOOTSTRAP.pm b/src/Perl6/Metamodel/BOOTSTRAP.pm
@@ -289,7 +289,8 @@ BEGIN {
     Proxy.HOW.add_attribute(Proxy, BOOTSTRAPATTR.new(:name<&!FETCH>, :type(Mu), :package(Proxy)));
     Proxy.HOW.add_attribute(Proxy, BOOTSTRAPATTR.new(:name<&!STORE>, :type(Mu), :package(Proxy)));
     Proxy.HOW.add_method(Proxy, 'FETCH', ($PROXY_FETCH := static(sub ($cont) {
-        nqp::getattr($cont, Proxy, '&!FETCH')(pir::perl6_var__PP($cont))
+        pir::perl6_decontainerize__PP(
+            nqp::getattr($cont, Proxy, '&!FETCH')(pir::perl6_var__PP($cont)))
     })));
     Proxy.HOW.add_method(Proxy, 'STORE', static(sub ($cont, $val) {
         nqp::getattr($cont, Proxy, '&!STORE')(pir::perl6_var__PP($cont), $val)