Introduce $*SPEC.slash

because $*SPEC.rootdir may not cut it. b2gills++ for spotting
rakudo · Oct 3, 2014 · e0d5ddc · e0d5ddc
1 parent 854ba8d
commit e0d5ddc
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 5 deletions.
diff --git a/src/core/CompUnitRepo/Local/File.pm b/src/core/CompUnitRepo/Local/File.pm
@@ -28,7 +28,7 @@ class CompUnitRepo::Local::File does CompUnitRepo::Locally {
         # sorry, cannot handle this one
         return () unless %extensions{$from}:exists;
 
-        my $slash := $*SPEC.rootdir;
+        my $slash := $*SPEC.slash;
         my $base := $!path ~ $slash ~ $name.subst(:g, "::", $slash) ~ '.';
         if %seen{$base} -> $found {
             return $found;

diff --git a/src/core/IO/Spec/Unix.pm b/src/core/IO/Spec/Unix.pm
@@ -17,6 +17,7 @@ my class IO::Spec::Unix is IO::Spec {
         $path
     }
 
+    method slash    {  '/' }
     method curdir   {  '.' }
     method updir    { '..' }
     method curupdir { none('.','..') }

diff --git a/src/core/IO/Spec/Win32.pm b/src/core/IO/Spec/Win32.pm
@@ -17,10 +17,11 @@ my class IO::Spec::Win32 is IO::Spec::Unix {
         self!canon-cat(|@dirs);
     }
 
-    method splitdir($dir)        { $dir.split($slash)  }
-    method catfile(|c)           { self.catdir(|c)     }
-    method devnull               { 'nul'               }
-    method rootdir               { '\\'                }
+    method slash          { '\\' }
+    method splitdir($dir) { $dir.split($slash)  }
+    method catfile(|c)    { self.catdir(|c)     }
+    method devnull        { 'nul'               }
+    method rootdir        { '\\'                }
 
     method tmpdir {
         first( { .defined && .IO.d && .IO.w },