Fix missing .curupdir breakage

rakudo · Oct 3, 2014 · 854ba8d · 854ba8d
1 parent 0242728
commit 854ba8d
Showing 1 changed file with 10 additions and 6 deletions.
diff --git a/src/core/IO/Spec/Unix.pm b/src/core/IO/Spec/Unix.pm
@@ -17,10 +17,11 @@ my class IO::Spec::Unix is IO::Spec {
         $path
     }
 
-    method curdir  {  '.' }
-    method updir   { '..' }
-    method rootdir { '/' }
-    method devnull { '/dev/null' }
+    method curdir   {  '.' }
+    method updir    { '..' }
+    method curupdir { none('.','..') }
+    method rootdir  { '/' }
+    method devnull  { '/dev/null' }
 
     method tmpdir {
         self.canonpath: first( { .defined && .IO.d && .IO.w },
@@ -29,8 +30,6 @@ my class IO::Spec::Unix is IO::Spec {
             || self.curdir;
     }
 
-    method no-parent-or-current-test { none('.', '..')  }
-
     method is-absolute( $file ) {
         substr( $file, 0, 1 ) eq '/';
     }
@@ -154,6 +153,11 @@ my class IO::Spec::Unix is IO::Spec {
         }
         self.catdir( self.canonpath($base), $path );
     }
+
+    method no-parent-or-current-test {
+        DEPRECATED('curupdir');
+        none('.', '..');
+    }
 }
 
 # vim: ft=perl6 expandtab sw=4