Undeprecate some things until 2014.10

rakudo · Oct 3, 2014 · 041c89a · 041c89a
1 parent 07d6050
commit 041c89a
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/src/core/IO/Path.pm b/src/core/IO/Path.pm
@@ -35,7 +35,7 @@ my class IO::Path is Cool does IO::FileTestable {
       :$SPEC   = $*SPEC,
       :$CWD    = $*CWD,
     ) {
-        DEPRECATED(':dirname', :what<IO::Path.new with :directory>);
+#        DEPRECATED(':dirname', :what<IO::Path.new with :directory>); # after 2014.10
         self.bless(
           :path($SPEC.join($volume,$directory,$basename)), :$SPEC, :$CWD);
     }
@@ -255,7 +255,7 @@ my class IO::Path is Cool does IO::FileTestable {
     }
 
     method contents(IO::Path:D: |c) {
-        DEPRECATED('dir');
+#        DEPRECATED('dir');   # after 2014.10
         self.dir(|c);
     }
 
@@ -352,7 +352,7 @@ my class IO::Path is Cool does IO::FileTestable {
     }
 
     method directory() {
-        DEPRECATED("dirname");
+#        DEPRECATED("dirname");   # after 2014.10
         self.dirname;
     }
 }

diff --git a/src/core/IO/Spec/Unix.pm b/src/core/IO/Spec/Unix.pm
@@ -156,7 +156,7 @@ my class IO::Spec::Unix is IO::Spec {
     }
 
     method no-parent-or-current-test {
-        DEPRECATED('curupdir');
+#        DEPRECATED('curupdir');   # after 2014.10
         none('.', '..');
     }
 }