No longer use unicode in REPL on Windows

Windows somehow is so Unicode challenged in its shells, that it is causing major issues, especially for new users.
rakudo · Jun 17, 2021 · 5e1c97b · 5e1c97b
1 parent 48de177
commit 5e1c97b
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 6 deletions.
diff --git a/src/Perl6/Compiler.nqp b/src/Perl6/Compiler.nqp
@@ -24,7 +24,7 @@ class Perl6::Compiler is HLL::Compiler {
         nqp::exit(0);
     }
 
-    method version_string(:$shorten-versions) {
+    method version_string(:$shorten-versions, :$no-unicode) {
         my $config-version  := self.config()<version>;
         my $backend-version := nqp::getattr(self,HLL::Compiler,'$!backend').version_string;
 
@@ -38,14 +38,16 @@ class Perl6::Compiler is HLL::Compiler {
             $index := nqp::index($backend-version,"-");
             $backend-version := nqp::substr($backend-version,0,$index)
               unless $index == -1;
-
-            $raku   := "𝐑𝐚𝐤𝐮™";
-            $rakudo := "𝐑𝐚𝐤𝐮𝐝𝐨™";
         }
-        else {
+
+        if $no-unicode {
             $raku   := "Raku(tm)";
             $rakudo := "Rakudo(tm)";
         }
+        else {
+            $raku   := "𝐑𝐚𝐤𝐮™";
+            $rakudo := "𝐑𝐚𝐤𝐮𝐝𝐨™";
+        }
 
         "Welcome to "
           ~ $rakudo

diff --git a/src/core.c/REPL.pm6 b/src/core.c/REPL.pm6
@@ -248,7 +248,10 @@ do {
 
         method new(Mu \compiler, Mu \adverbs, $skip?) {
             unless $skip {
-                say compiler.version_string(:shorten-versions);
+                say compiler.version_string(
+                  :shorten-versions,
+                  :no-unicode(Rakudo::Internals.IS-WIN)
+                );
                 say '';
             }