Phase one of path separator changes

tadzik · May 4, 2015 · 81893bb · 81893bb
1 parent e1f3318
commit 81893bb
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/lib/Panda.pm b/lib/Panda.pm
@@ -99,7 +99,7 @@ class Panda {
 
         my $shell = %*ENV<SHELL>;
         $shell ||= %*ENV<COMSPEC>
-            if $*DISTRO.name eq 'mswin32';
+            if $*DISTRO.is-win;
 
         if $shell {
 

diff --git a/lib/Panda/Common.pm b/lib/Panda/Common.pm
@@ -21,7 +21,7 @@ sub withp6lib(&what) is export {
             %*ENV<PERL6LIB>:delete;
         }
     }
-    my $sep = $*DISTRO.is-win ?? ';' !! ':';
+    my $sep = $*DISTRO.?cur-sep // $*DISTRO.path-sep;
     %*ENV<PERL6LIB> = join $sep,
         $*CWD ~ '/blib/lib',
         $*CWD ~ '/lib',