Allow undef() to be rw (fixes RT #117777)

rakudo · Mar 12, 2015 · e84f718 · e84f718
1 parent 595ffe3
commit e84f718
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/core/operators.pm b/src/core/operators.pm
@@ -253,7 +253,7 @@ multi sub infix:<…>(|c) { infix:<...>(|c) }
 proto sub infix:<…^>(|) { * }
 multi sub infix:<…^>(|c) { infix:<...^>(|c) }
 
-sub undefine(Mu \x) { x = Nil }
+sub undefine(Mu \x) is rw { x = Nil }
 
 sub prefix:<temp>(\cont) is rw {
     my $temp_restore := nqp::getlexcaller('!TEMP-RESTORE');