diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-06-18 16:56:31 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-06-18 17:11:42 -0700 |
| commit | 3b72ace85c0bf4a17be9312bf5ff46ecfdb1258a (patch) | |
| tree | c60542b3f631e0bdb1c5aca696fb6184c897a3c5 /src/property/file.lisp | |
| parent | d835070f706e341cb3dd3daee5cb7a7d31c0c4da (diff) | |
| download | consfigurator-3b72ace85c0bf4a17be9312bf5ff46ecfdb1258a.tar.gz | |
FILE:CONTAINS-CONF-{EQUALS,SHELL}: fix for values containing '='
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property/file.lisp')
| -rw-r--r-- | src/property/file.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/property/file.lisp b/src/property/file.lisp index 5e5dddc..991d1b6 100644 --- a/src/property/file.lisp +++ b/src/property/file.lisp @@ -393,7 +393,7 @@ commented out; the first commented or uncommented line for each key will be uncommented and used to set the value, if it exists." (:desc (format nil "~A has ~{~A = ~A~^, ~}" file pairs)) (:apply (simple-conf-update file pairs - :parse-kv #?/^(\S+)\s?=\s?(.*)/ + :parse-kv #?/^([^\s=]+)\s?=\s?(.*)/ :new-kv (lambda (k v) #?"${k} = ${v}")))) (defprop contains-conf-shell :posix (file &rest pairs) @@ -411,7 +411,7 @@ uncommented and used to set the value, if it exists." ;; include quoting as part of the value so we ;; don't end up substituting double quotation ;; marks for single, or similar - :parse-kv #?/^(\S+)\s?=\s?(.*)/ + :parse-kv #?/^([^\s=]+)\s?=\s?(.*)/ :new-kv (lambda (k v) #?"${k}=${v}")))) (defprop contains-ini-settings :posix (file &rest triples) |