Locally it is raku for testing and timing

Author: H.Merijn Brand - Tux

bugs.pl

@@ -4,8 +4,7 @@
 use warnings;
 use Term::ANSIColor;
 
-sub usage
-{
+sub usage {
     my $err = shift and select STDERR;
     say "usage: $0 [--test]";
     exit $err;
@@ -51,7 +50,7 @@ sub test
             close $fh;
             };
         alarm (3);
-        system "perl6 $t @arg >$e 2>&1";
+        system "raku $t @arg >$e 2>&1";
         $exit = $?;
         alarm (0);
         };
@@ -243,7 +242,7 @@ sub test
 
 {   title "Precomp", "Precompilations causes segfault", "RT#124298";
     qx{mkdir -p blib/lib/Text};
-    qx{perl6 --target=mbc --output=blib/lib/Text/CSV.pm.moarvm lib/Text/CSV.pm};
+    qx{raku --target=mbc --output=blib/lib/Text/CSV.pm.moarvm lib/Text/CSV.pm};
     test (qr{Segmentation fault},
           q{use lib "blib/lib";use Text::CSV; my $c = Text::CSV.new});
     qx{find blib};

test-t.pl

@@ -1,4 +1,4 @@
-#!perl6
+#!raku
 
 use v6;
 use Text::CSV;

time.pl

@@ -38,7 +38,7 @@ sub usage {
      3 => [ ".py",  "python3",                                                ],
      4 => [ ".php", "php",       "-nq"                                        ],
      5 => [ ".pl",  "perl",                                                   ],
-     6 => [ ".pl",  "perl6",     "-Ilib"                                      ],
+     6 => [ ".pl",  "raku",      "-Ilib"                                      ],
      7 => [ ".lua", "lua5.1"                                                  ],
     21 => [ ".lua", "lua5.3"                                                  ],
      8 => [ ".go",  "go",        "run"                                        ],
@@ -149,7 +149,7 @@ sub runfrom {
 
     my ($ext, $exe, @arg) = @{$lang{$v}};
 
-    $exe eq "perl6" && !$opt_6 and next;
+    $exe eq "raku" && !$opt_6 and next;
 
     $opt_v and printf "%-9s ", $exe;
     my $s_script = sprintf "%-17s ", join "\x{00a0}" => $script, @args;
@@ -201,7 +201,7 @@ sub runfrom {
     $irc and push @irc, $time[-1];
     }
 
-print qx{perl6 -v} =~ s{\nimplementing.*\n}{\n}r;
+print qx{raku -v} =~ s{\nimplementing.*\n}{\n}r;
 printf "%s %9.3f\n", $_->[1], $_->[3] for grep { $_->[3] < 100 } @irc;
 
 if (!$opt_i and open my $fh, ">", "../Talks/CSV6/speed5.html") {