Rename .slash to .dir-sep

Slash is too culturally specific, masak++
rakudo · Oct 3, 2014 · d69a874 · d69a874
1 parent e0d5ddc
commit d69a874
Show file tree

Hide file tree

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

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

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