Permalink
Browse files

un-worked around a few fixed Rakudobugs

  • Loading branch information...
masak committed Jun 8, 2009
1 parent 4eddde6 commit c61d818f6d6e5d671e2519ec879a7cdc68c0430f
Showing with 4 additions and 7 deletions.
  1. +1 −2 lib/Druid/View/Text.pm
  2. +3 −5 lib/Test/Ix.pm
View
@@ -216,8 +216,7 @@ method colors-and-heights() {
return gather {
take $header;
- # RAKUDO: .reverse on Ranges out of order. [perl #64458]
- for (1..$.size).list.reverse -> $row {
+ for (1..$.size).reverse -> $row {
take sprintf from-pretty(
[~] ' ', $board-line, $inter-board-space, $board-line
),
View
@@ -59,18 +59,16 @@ multi sub traverse-tests(@tests, Code $leaf-action, $prefix) {
}
}
-# RAKUDO: Would like to make this a named param. [perl #63230]
-# sub inject(Str $sub, Str :into($code)!) {
-sub inject(Str $sub, Str :$into!) {
- my @lines = $into.split("\n");
+sub inject(Str $sub, Str :into($code)!) {
+ my @lines = $code.split("\n");
my $line-with-vim-conf = first-index { $_ ~~ /^ '# vim'/ }, @lines;
# RAKUDO: $line-with-vim-conf ~~ Nil [perl #63894]
if $line-with-vim-conf.WHAT ne 'Nil' {
return join "\n", @lines[0 ..^ $line-with-vim-conf],
$sub,
@lines[$line-with-vim-conf ..^ *];
}
- return $into ~ $sub;
+ return $code ~ $sub;
}
sub first-index(Code $cond, @array) {

0 comments on commit c61d818

Please sign in to comment.