Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
[v6] Removed a sanity check that did more harm
%hash<key> = (%hash<key> = 5) is now accepted, despite being on
somewhat shaky ground in S09.  Some other variations violate POLS;
see http://irclog.perlgeek.de/perl6/2010-11-16#i_2998697 .
  • Loading branch information
sorear committed Nov 16, 2010
1 parent 1f49178 commit 40ac1ca
Showing 1 changed file with 8 additions and 0 deletions.
8 changes: 8 additions & 0 deletions v6/tryfile
Expand Up @@ -67,6 +67,14 @@ augment class Match {
}
augment class Hash {
method !extend($key, \$var) {
Q:CgOp {
(letn d [unbox varhash (@ {self})]
k [unbox str (@ {$key.Str})]
[varhash_setindex (l k) (l d) {$var}]
[null var])
};
}
method hash() { unitem(self) }
}

Expand Down

0 comments on commit 40ac1ca

Please sign in to comment.