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

Reject relative paths in MANIFEST files when installing.

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2015-09-10 18:35:40 -04:00
parent 17d69338a9
commit 78fc476e61
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/collects/pkg/private/stage.rkt
View File

@ -11,6 +11,7 @@
net/url net/url
file/untgz file/untgz
file/unzip file/unzip
file/private/check-path
openssl/sha1 openssl/sha1
json json
net/git-checkout net/git-checkout
@ -412,6 +413,7 @@
pkg-name) pkg-name)
'directory)) 'directory))
(define (path-like f) (define (path-like f)
(check-unpack-path 'MANIFEST f)
(build-path package-path f)) (build-path package-path f))
(define (url-like f) (define (url-like f)
(if (and (pair? (url-path pkg-url)) (if (and (pair? (url-path pkg-url))