Interpret an empty string in PATH as "." in findProgram

Closes: #1841
Macaulay2 · Jan 19, 2021 · 657f25c · 657f25c
1 parent 7d4e4e3
commit 657f25c
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/M2/Macaulay2/m2/programs.m2 b/M2/Macaulay2/m2/programs.m2
@@ -64,7 +64,9 @@ getProgramPath = (name, cmds, opts) -> (
     pathsToTry = pathsToTry | opts.AdditionalPaths;
     -- finally, try PATH
     if getenv "PATH" != "" then
-	pathsToTry = join(pathsToTry, separate(":", getenv "PATH"));
+	pathsToTry = join(pathsToTry,
+	    apply(separate(":", getenv "PATH"), dir ->
+		if dir == "" then "." else dir));
     pathsToTry = apply(pathsToTry, addSlash);
     prefixes := {(".*", "")} | opts.Prefix;
     errorCode := 1;