suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

make sure git checkout have correct perms

Browse Source
This commit is contained in:
Spencer Florence 2015-09-14 16:24:38 -05:00 committed by Robby Findler
parent 003bca503f
commit 35a0f0c71c
1 changed files with 14 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
racket/collects/net/git-checkout.rkt
View File

@ -671,12 +671,16 @@
(when id (when id
(define (this-object-location) (define (this-object-location)
(object-location (hash-ref obj-ids id))) (object-location (hash-ref obj-ids id)))
(case (datum-intern-literal mode) (define (copy-this-object perms)
[(#"100644" #"644"
#"100755" #"755")
(copy-object tmp (copy-object tmp
(this-object-location) (this-object-location)
(build-path dest-dir fn))] perms
(build-path dest-dir fn)))
(case (datum-intern-literal mode)
[(#"100755") #"755"
(copy-this-object #o755)]
[(#"100644" #"644")
(copy-this-object #o644)]
[(#"40000" #"040000") [(#"40000" #"040000")
(extract-tree id obj-ids tmp (build-path dest-dir fn))] (extract-tree id obj-ids tmp (build-path dest-dir fn))]
[(#"120000") [(#"120000")
@ -938,8 +942,8 @@
[else [else
(call-with-input-file* (build-path (tmp-info-dir tmp) location) proc)])) (call-with-input-file* (build-path (tmp-info-dir tmp) location) proc)]))
;; copy-object : tmp-info location path -> void ;; copy-object : tmp-info location integer path -> void
(define (copy-object tmp location dest-file) (define (copy-object tmp location perms dest-file)
(cond (cond
[(pair? location) [(pair? location)
(define bstr (object->bytes tmp location)) (define bstr (object->bytes tmp location))
@ -950,7 +954,10 @@
[else [else
(copy-file (build-path (tmp-info-dir tmp) location) (copy-file (build-path (tmp-info-dir tmp) location)
dest-file dest-file
#t)])) #t)])
(if (eq? 'windows (system-type 'os))
(file-or-directory-permissions dest-file #o755)
(file-or-directory-permissions dest-file perms)))
;; object->bytes : tmp-info location -> bytes ;; object->bytes : tmp-info location -> bytes
(define (object->bytes tmp location) (define (object->bytes tmp location)