Reject relative paths in MANIFEST files when installing.

This commit is contained in:
Sam Tobin-Hochstadt 2015-09-10 18:35:40 -04:00
parent 17d69338a9
commit 78fc476e61

View File

@ -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))