diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-26 22:54:11 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-27 13:39:52 -0700 |
commit | db2879636b809e34efc9397c19b646a2695beb51 (patch) | |
tree | 5ea4300b201553e34d845af7870deb4da23cda2f /src/data.lisp | |
parent | 2e1599f51c803560b6b9063fd8ae95d62a601b62 (diff) | |
download | consfigurator-db2879636b809e34efc9397c19b646a2695beb51.tar.gz |
attempt to implement umask support for CONNECTION-WRITEFILE
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/data.lisp')
-rw-r--r-- | src/data.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/data.lisp b/src/data.lisp index 8bb81f3..96ef6a6 100644 --- a/src/data.lisp +++ b/src/data.lisp @@ -268,7 +268,7 @@ appropriate. Falls back to CONNECTION-WRITEFILE." nil)) (connection-upload *connection* from to) (with-open-file (s from :element-type '(unsigned-byte 8)) - (connection-writefile *connection* to s)))) + (connection-writefile *connection* to s #o077)))) (defmethod connection-upload-data :around ((data data)) (when (subtypep (class-of *connection*) @@ -300,7 +300,7 @@ appropriate. Falls back to CONNECTION-WRITEFILE." (defmethod connection-upload-data ((data string-data)) (declare (special *dest*)) - (connection-writefile *connection* *dest* (data-string data))) + (connection-writefile *connection* *dest* (data-string data) #o077)) (defun connection-clear-data-cache (iden1 iden2) (let ((dir (ensure-directory-pathname (remote-data-pathname iden1 iden2)))) |