diff options
Diffstat (limited to 'modules')
| -rw-r--r-- | modules/ssh/shell.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/modules/ssh/shell.scm b/modules/ssh/shell.scm index a920825..62bf392 100644 --- a/modules/ssh/shell.scm +++ b/modules/ssh/shell.scm @@ -38,6 +38,7 @@ (define-module (ssh shell) #:use-module (ice-9 rdelim) #:use-module (ice-9 regex) + #:use-module (ice-9 format) #:use-module (ssh channel) #:use-module (ssh popen) #:export (rexec which pgrep fallback-pgrep command-available?)) @@ -90,7 +91,7 @@ Return two values: a check result and a return code." (format #f "\ echo ' for p in $(ls /proc); do - if [[ \"$p\" =~ ^[0-9]+ ]]; then + if [[ \"$p\" =~~ ^[0-9]+ ]]; then name=$(cat \"/proc/$p/status\" 2>/dev/null | head -1); if [[ \"$name\" =~~ Name:.*guile ]]; then cmdline=$(cat \"/proc/$p/cmdline\"); |