IO::Spec.tmpdir now returns . on failure, trying $*TMPDIR out

rakudo · Apr 29, 2013 · a2505bc · a2505bc
1 parent beab87b
commit a2505bc
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 2 deletions.
diff --git a/src/core/IO/Spec/Cygwin.pm b/src/core/IO/Spec/Cygwin.pm
@@ -31,7 +31,7 @@ my class IO::Spec::Cygwin is IO::Spec::Unix {
     method tmpdir {
         state $tmpdir;
         return $tmpdir if defined $tmpdir;
-        $tmpdir = IO::Spec::Unix._firsttmpdir(
+        $tmpdir = self._firsttmpdir(
              %*ENV<TMPDIR>,
              "/tmp",
              %*ENV<TMP>,

diff --git a/src/core/IO/Spec/Unix.pm b/src/core/IO/Spec/Unix.pm
@@ -34,7 +34,7 @@ my class IO::Spec::Unix {
 
     method _firsttmpdir( *@dirlist ) {
         my $tmpdir = @dirlist.first( { .defined && .IO.d && .IO.w } )
-            or fail "No viable candidates for a temporary directory found";
+            or self.curdir;
         self.canonpath( $tmpdir );
     }
 

diff --git a/src/core/terms.pm b/src/core/terms.pm
@@ -114,4 +114,7 @@ sub term:<time>() { nqp::p6box_i(nqp::time_i()) }
     my $PROGRAM_NAME = $comp.user-progname();
     nqp::bindkey(nqp::who(PROCESS), '$PROGRAM_NAME', $PROGRAM_NAME);
 
+    $PROCESS::TMPDIR = IO::Spec.tmpdir;
+
+
 }