Implement Distro.homedir, preparing for $*HOME

rakudo · Feb 14, 2015 · c92e49e · c92e49e
1 parent 159c38b
commit c92e49e
Showing 1 changed file with 17 additions and 9 deletions.
diff --git a/src/core/Distro.pm b/src/core/Distro.pm
@@ -39,15 +39,23 @@ class Distro does Systemic {
     }
 
     method tmpdir() {
-        my $ENV := %*ENV;
-        self!first-rwx-dir(
-            self.is-win
-              ?? <<
- $ENV<TMPDIR> $ENV<TEMP> $ENV<TMP> SYS:/temp C:/system/temp C:/temp /tmp /
-                 >>
-              !! <<
- $ENV<TMPDIR> /tmp
-                 >>
+        my %ENV := %*ENV;
+        self!first-rwx-dir( self.is-win
+          ?? <<
+ %ENV<TMPDIR> %ENV<TEMP> %ENV<TMP> SYS:/temp C:/system/temp C:/temp /tmp /
+             >>
+          !! <<
+ %ENV<TMPDIR> /tmp
+             >>
+        );
+    }
+
+    method homedir() {
+        my %ENV  := %*ENV;
+        my $USER := $*USER.Str;
+        self!first-rwx-dir( self.is-win
+          ?? << %ENV<HOME> %ENV<HOMEDIR> >>
+          !! << %ENV<HOME> "/home/$USER" "/Users/$USER" >>
         );
     }
 }