only quote build paths if it appears to be necessary

Author: kevinushey

R/utils.R

@@ -1,18 +1,19 @@
 
 # generate paths consumable by the compilers and linkers
-# in particular, on Windows, this means the path _cannot_ be quoted !!
+# in particular, on Windows and Solaris, this means the path _cannot_ be quoted !!
 asBuildPath <- function(path) {
 
-   if (!is_windows())
-      return(shQuote(path))
-   
    # normalize paths using forward slashes
    path <- normalizePath(path, winslash = "/", mustWork = FALSE)
 
    # prefer short path names if the path has spaces
-   if (grepl(" ", path, fixed = TRUE))
+   if (is_windows() && grepl(" ", path, fixed = TRUE))
       path <- utils::shortPathName(path)
 
+   # if we still have spaces, and we're not Windows or Solaris, try quoting
+   if (grepl(" ", path, fixed = TRUE) && !is_windows() && !is_solaris())
+      path <- shQuote(path)
+   
    # return path
    return(path)