Reject relative paths in MANIFEST files when installing.
This commit is contained in:
parent
17d69338a9
commit
78fc476e61
|
@ -11,6 +11,7 @@
|
|||
net/url
|
||||
file/untgz
|
||||
file/unzip
|
||||
file/private/check-path
|
||||
openssl/sha1
|
||||
json
|
||||
net/git-checkout
|
||||
|
@ -412,6 +413,7 @@
|
|||
pkg-name)
|
||||
'directory))
|
||||
(define (path-like f)
|
||||
(check-unpack-path 'MANIFEST f)
|
||||
(build-path package-path f))
|
||||
(define (url-like f)
|
||||
(if (and (pair? (url-path pkg-url))
|
||||
|
|
Loading…
Reference in New Issue
Block a user