Fix $*PROGRAM path construction after a chdir

rakudo · Jan 12, 2019 · cebf0cb · cebf0cb
1 parent 5c14916
commit cebf0cb
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/core/Process.pm6 b/src/core/Process.pm6
@@ -37,7 +37,7 @@ Rakudo::Internals.REGISTER-DYNAMIC: '$*PROGRAM-NAME', {
 }
 
 Rakudo::Internals.REGISTER-DYNAMIC: '$*PROGRAM', {
-    PROCESS::<$PROGRAM> := IO::Path.new($*PROGRAM-NAME);
+    PROCESS::<$PROGRAM> := IO::Path.new(:CWD(INIT nqp::cwd()), $*PROGRAM-NAME);
 }
 
 Rakudo::Internals.REGISTER-DYNAMIC: '$*TMPDIR', {