Permalink
Browse files

Fix undefine()

  • Loading branch information...
1 parent b510088 commit bbc2b3f4b1d88b9b35bf02a4a584e86b073a548e @lizmat lizmat committed Jun 29, 2013
Showing with 1 addition and 4 deletions.
  1. +1 −4 src/core/operators.pm
View
5 src/core/operators.pm
@@ -190,10 +190,7 @@ multi sub infix:<...>($a, Mu $b) { SEQUENCE($a, $b) }
proto sub infix:<...^>(|) { * }
multi sub infix:<...^>($a, Mu $b) { SEQUENCE($a, $b, :exclude_end(1)) }
-sub undefine(Mu \x) {
- my $undefined;
- x = $undefined;
-}
+sub undefine(Mu \x) { x = Nil }
sub prefix:<temp>(\cont) is rw {
my $temp_restore := nqp::getlexcaller('!TEMP-RESTORE');

0 comments on commit bbc2b3f

Please sign in to comment.