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))))))
(define (protect-shell-string s)
(let ([s (if (path? s) (path->string s) s)])
(regexp-replace* #rx"[\"$`]" s "\\\\&")))
(regexp-replace*
#rx"[\"`'$\\]" (if (path? s) (path->string s) s) "\\\\&"))
(define (normalize+explode-path p)
(explode-path (normal-case-path (normalize-path p))))