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

better shell-string protection

Browse Source 
svn: r3396
This commit is contained in:
Eli Barzilay 2006-06-18 08:37:04 +00:00
parent ec8d820bf2
commit 00ecf6acae
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/launcher/launcher-unit.ss
View File

@ -240,8 +240,8 @@
args)))))) args))))))
(define (protect-shell-string s) (define (protect-shell-string s)
(let ([s (if (path? s) (path->string s) s)]) (regexp-replace*
(regexp-replace* #rx"[\"$`]" s "\\\\&"))) #rx"[\"`'$\\]" (if (path? s) (path->string s) s) "\\\\&"))
(define (normalize+explode-path p) (define (normalize+explode-path p)
(explode-path (normal-case-path (normalize-path p)))) (explode-path (normal-case-path (normalize-path p))))