Use HLL::SysConfig to obtain path-sep

As suggested by ugexe++
rakudo · May 5, 2024 · c885595 · c885595
1 parent c888a11
commit c885595
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/src/Perl6/Compiler.nqp b/src/Perl6/Compiler.nqp
@@ -142,12 +142,12 @@ class Perl6::Compiler is HLL::Compiler {
     method lvs() { LanguageVersionServices }
 
     method version_string(:$shorten-versions, :$no-unicode) {
-        my $config-version     := self.config()<version>;
-        my $backend-version    := nqp::getattr(self,HLL::Compiler,'$!backend').version_string;
-        my $execname           := nqp::execname;
-        my $path-sep           := nqp::backendconfig<osname> eq 'MSWin32' ?? '\\' !! '/';
-        my $install-dir        := nqp::substr($execname, 0, nqp::rindex($execname, $path-sep, nqp::rindex($execname, $path-sep) - 1));
-        my $flavor-file        := $install-dir ~ $path-sep ~ "etc" ~ $path-sep ~ "FLAVOR";
+        my $config-version  := self.config()<version>;
+        my $backend-version := nqp::getattr(self,HLL::Compiler,'$!backend').version_string;
+        my $execname        := nqp::execname;
+        my $path-sep        := nqp::gethllsym('default', 'SysConfig').path-sep;
+        my $install-dir     := nqp::substr($execname, 0, nqp::rindex($execname, $path-sep, nqp::rindex($execname, $path-sep) - 1));
+        my $flavor-file     := $install-dir ~ $path-sep ~ "etc" ~ $path-sep ~ "FLAVOR";
         my $rakudo-core-flavor := " v";
 
         my $raku;