Tweak real-world CGroups tests trying to get them to also run on MS W…

…indows
futureverse · Nov 27, 2024 · 2470abe · 2470abe
1 parent facebd2
commit 2470abe
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,5 +1,5 @@
 Package: parallelly
-Version: 1.39.0-9007
+Version: 1.39.0-9008
 Title: Enhancing the 'parallel' Package
 Imports:
     parallel,

diff --git a/R/cgroups.R b/R/cgroups.R
@@ -147,7 +147,7 @@ withCGroups <- function(tarball, expr = NULL, envir = parent.frame(), tmpdir = N
    message(" - Adjust /proc/self/mounts accordingly:")
    file <- file.path(tmpdir, "proc", "self", "mounts")
    bfr <- readLines(file, warn = FALSE)
-   bfr <- gsub("/sys/fs/cgroup", file.path(tmpdir, "sys/fs/cgroup"), bfr)
+   bfr <- gsub("/sys/fs/cgroup", file.path(tmpdir, "sys/fs/cgroup", fsep = "/"), bfr)
    writeLines(bfr, con = file)
    bfr <- readLines(file, warn = FALSE)
    bfr <- sprintf("   %02d: %s", seq_along(bfr), bfr)