diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-05-06 17:12:55 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-05-06 17:13:08 -0700 |
commit | b2ea4e2d80e518d32d1f0aa4c297e5bc0b354b41 (patch) | |
tree | b904201de8338b786c28a5b01805ded7adf99e8f | |
parent | f14a9b47e3b588e9ab8c7bd9609c76ec493b4e61 (diff) | |
download | consfigurator-b2ea4e2d80e518d32d1f0aa4c297e5bc0b354b41.tar.gz |
use RUN not MRUN when parsing command stdout
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
-rw-r--r-- | src/property.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/property.lisp b/src/property.lisp index 3571a68..497b2f1 100644 --- a/src/property.lisp +++ b/src/property.lisp @@ -521,12 +521,12 @@ apply or unapply properties.") "Cannot apply :LISP properties using a POSIX-type connection"))) (defun cksum (file) - (ignore-errors (parse-integer (car (split-string (mrun "cksum" file)))))) + (ignore-errors (parse-integer (car (split-string (run "cksum" file)))))) ;; this is a safe parse of ls(1) output given its POSIX specification (defun ls-cksum (file) (let ((ls (ignore-errors - (split-string (mrun :env '(:LOCALE "C") "ls" "-dlL" file)))) + (split-string (run :env '(:LOCALE "C") "ls" "-dlL" file)))) (cksum (cksum file))) (when (and ls cksum) (list* (car ls) cksum (subseq ls 2 8))))) |