aboutsummaryrefslogtreecommitdiff
path: root/src/property/git.lisp
diff options
context:
space:
mode:
authorSean Whitton <spwhitton@spwhitton.name>2021-07-13 21:59:10 -0700
committerSean Whitton <spwhitton@spwhitton.name>2021-07-13 21:59:10 -0700
commit9b6c9b92884cbf226d6d7b30d86daad96117eea2 (patch)
treed718567f14045a1d8779063a3574801cd0268d3d /src/property/git.lisp
parent41f5c92d62171535c4d21e6722b0d12ec01e875b (diff)
downloadconsfigurator-9b6c9b92884cbf226d6d7b30d86daad96117eea2.tar.gz
GIT:SNAPSHOT-EXTRACTED: when root, don't preserve file ownership
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property/git.lisp')
-rw-r--r--src/property/git.lisp2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/property/git.lisp b/src/property/git.lisp
index 1e50d53..60d404a 100644
--- a/src/property/git.lisp
+++ b/src/property/git.lisp
@@ -47,7 +47,7 @@ available version of the snapshot is present on the remote system."
(file:directory-exists directory)
(with-remote-current-directory (directory)
(mrun :input (get-data-stream "--git-snapshot" snapshot-name)
- "tar" "xfz" "-")))
+ "tar" (if (zerop (get-connattr :remote-uid)) "oxfz" "xfz") "-")))
(:unapply
(declare (ignore replace))
(delete-remote-trees dest)))