Mark is rw generated methods with rw flag.

rakudo · Mar 9, 2016 · d2e31e8 · d2e31e8
1 parent 4a0ba74
commit d2e31e8
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/Perl6/World.nqp b/src/Perl6/World.nqp
@@ -2737,7 +2737,9 @@ class Perl6::World is HLL::World {
                 $!acc_sig_cache_type := $package_type;
             }
 
-            return $!w.create_code_object($block, 'Method', $sig);
+            my $code := $!w.create_code_object($block, 'Method', $sig);
+            $code.set_rw() if $rw;
+            return $code;
         }
     }
     method get_compiler_services() {