Make Str/Numeric/gist on $*USER/GROUP work ok

masak++ for pointing out the error of my ways :-)
rakudo · Jun 23, 2015 · e862714 · e862714
1 parent 7fbd54a
commit e862714
Showing 1 changed file with 8 additions and 5 deletions.
diff --git a/src/core/Process.pm b/src/core/Process.pm
@@ -84,11 +84,14 @@ multi sub INITIALIZE_DYNAMIC('$*HOME') {
             }
         }
 
-        method Numeric { return Nil unless fetch(); +PROCESS::{$!name} }
-        method Str     { return Nil unless fetch(); ~PROCESS::{$!name} }
-        method gist    {
-            return Nil unless fetch();
-            PROCESS::{$!name} ~ ' (' ~ +PROCESS::{$!name} ~ ')';
+        multi method Numeric(IdFetch:D:) {
+            fetch() ?? +PROCESS::{$!name} !! Nil;
+        }
+        multi method Str(IdFetch:D:) {
+            fetch() ?? ~PROCESS::{$!name} !! Nil;
+        }
+        multi method gist(IdFetch:D:) {
+            fetch() ?? "{PROCESS::{$!name}} ({+PROCESS::{$!name}})" !! Nil;
         }
     }