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

Revert "Remove arbitrary code execution exploit from Racket and DrRacket"

Browse Source 
This reverts commit cf1755fc17.
This commit is contained in:
Jay McCarthy 2013-11-27 19:09:50 -07:00
parent c980182b6b
commit 680b6f4928
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
racket/collects/planet/private/resolver.rkt
View File

@ -219,9 +219,9 @@ See the scribble documentation on the planet/resolver module.
(struct-out exn:fail:planet))
;; if #f, will not install packages and instead raise a exn:fail:install? error
(define install? (make-parameter #f))
(define install? (make-parameter #t))
;; if #f, will not download packages and instead raise a exn:fail:install? error
(define download? (make-parameter #f))
(define download? (make-parameter #t))
(define-struct (exn:fail:planet exn:fail) ())
;; update doc index only once for a set of installs:
@ -541,7 +541,7 @@ See the scribble documentation on the planet/resolver module.
(unless (download?)
(raise (make-exn:fail:planet
(format
"PLaneT error: cannot download package ~s without permission. Give permission with download? parameter or use 'raco planet install'"
"PLaneT error: cannot download package ~s since the download? parameter is set to #f"
(list (car (pkg-spec-path pkg)) (pkg-spec-name pkg)))
(current-continuation-marks))))
((if (USE-HTTP-DOWNLOADS?) download-package/http download-package/planet)
@ -577,7 +577,7 @@ See the scribble documentation on the planet/resolver module.
(unless (install?)
(raise (make-exn:fail:planet
(format
"PLaneT error: cannot install package ~s without permission. Give permission with download? parameter or use 'raco planet install'"
"PLaneT error: cannot install package ~s since the install? parameter is set to #f"
(list (car pkg-path) pkg-name maj min))
(current-continuation-marks))))
(define owner (car pkg-path))