Permalink
Browse files

$^k not legal inside hash subscript

  • Loading branch information...
1 parent 9ca79dd commit 4d0091229f9e400ff9f036f27bd9bb70830467fa @TimToady TimToady committed Jul 31, 2012
Showing with 5 additions and 5 deletions.
  1. +1 −1 S02-types/bag.t
  2. +2 −2 S02-types/keybag.t
  3. +1 −1 S02-types/keyhash.t
  4. +1 −1 S03-operators/bag.t
View
2 S02-types/bag.t
@@ -4,7 +4,7 @@ use Test;
plan 103;
sub showkv($x) {
- $x.keys.sort.map({ $^k ~ ':' ~ $x{$^k} }).join(' ')
+ $x.keys.sort.map({ $^k ~ ':' ~ $x{$k} }).join(' ')
}
# L<S02/Immutable types/'the bag listop'>
View
4 S02-types/keybag.t
@@ -8,7 +8,7 @@ plan 141;
# A KeyBag is a KeyHash of UInt, i.e. the values are positive Int
sub showkv($x) {
- $x.keys.sort.map({ $^k ~ ':' ~ $x{$^k} }).join(' ')
+ $x.keys.sort.map({ $^k ~ ':' ~ $x{$k} }).join(' ')
}
# L<S02/Immutable types/'the bag listop'>
@@ -327,7 +327,7 @@ sub showkv($x) {
{
my %h is KeyBag;
lives_ok { %h = bag <a b c d c b> }, 'Assigning a Bag to a KeyBag';
- is %h.keys.sort.map({ $^k ~ ':' ~ %h{$^k} }).join(' '),
+ is %h.keys.sort.map({ $^k ~ ':' ~ %h{$k} }).join(' '),
'a:1 b:2 c:2 d:1', '... works as expected';
}
View
2 S02-types/keyhash.t
@@ -4,7 +4,7 @@ use Test;
plan 59;
sub showkh($h) {
- $h.keys.sort.map({ $^k ~ ':' ~ $h{$^k} }).join(' ')
+ $h.keys.sort.map({ $^k ~ ':' ~ $h{$k} }).join(' ')
}
# L<S02/Mutable types/"The KeyHash role differs from a normal Associative hash">
View
2 S03-operators/bag.t
@@ -4,7 +4,7 @@ use Test;
plan 84;
sub showkv($x) {
- $x.keys.sort.map({ $^k ~ ':' ~ $x{$^k} }).join(' ')
+ $x.keys.sort.map({ $^k ~ ':' ~ $x{$k} }).join(' ')
}
# "We're more of the love, blood, and rhetoric school. Well, we can do you blood

0 comments on commit 4d00912

Please sign in to comment.