Refactor tmpdir using private first-rwx-dir

rakudo · Feb 14, 2015 · 159c38b · 159c38b
1 parent f43f963
commit 159c38b
Showing 1 changed file with 16 additions and 13 deletions.
diff --git a/src/core/Distro.pm b/src/core/Distro.pm
@@ -27,25 +27,28 @@ class Distro does Systemic {
         }
     }
 
+    method !first-rwx-dir(\paths) {
+        my $io;
+        for paths.grep(*.defined) -> $path {
+            $io := $path.IO(:check);
+            return $io if $io.d && $io.rwx;
+        }
+
+        # alas, nothing worked, use current dir
+        ".".IO;
+    }
+
     method tmpdir() {
         my $ENV := %*ENV;
-        my $io;
-        for $!is-win
+        self!first-rwx-dir(
+            self.is-win
               ?? <<
-  $ENV<TMPDIR> $ENV<TEMP> $ENV<TMP> SYS:/temp C:/system/temp C:/temp /tmp /
+ $ENV<TMPDIR> $ENV<TEMP> $ENV<TMP> SYS:/temp C:/system/temp C:/temp /tmp /
                  >>
               !! <<
-  $ENV<TMPDIR> /tmp
+ $ENV<TMPDIR> /tmp
                  >>
-        -> $path {
-            if $path.defined {
-                $io := $path.IO(:check);
-                return $io if $io.d && $io.rwx;
-            }
-        }
-
-        # alas, nothing worked, use current dir
-        ".".IO;
+        );
     }
 }