Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

un-worked around a few fixed Rakudobugs

  • Loading branch information...
commit c61d818f6d6e5d671e2519ec879a7cdc68c0430f 1 parent 4eddde6
@masak authored
Showing with 4 additions and 7 deletions.
  1. +1 −2  lib/Druid/View/Text.pm
  2. +3 −5 lib/Test/Ix.pm
View
3  lib/Druid/View/Text.pm
@@ -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
8 lib/Test/Ix.pm
@@ -59,10 +59,8 @@ 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' {
@@ -70,7 +68,7 @@ sub inject(Str $sub, Str :$into!) {
$sub,
@lines[$line-with-vim-conf ..^ *];
}
- return $into ~ $sub;
+ return $code ~ $sub;
}
sub first-index(Code $cond, @array) {
Please sign in to comment.
Something went wrong with that request. Please try again.