From 00ecf6acaed81db2163d063ab2c37036fbcaa67c Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Sun, 18 Jun 2006 08:37:04 +0000
Subject: [PATCH] better shell-string protection

svn: r3396
---
 collects/launcher/launcher-unit.ss | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/collects/launcher/launcher-unit.ss b/collects/launcher/launcher-unit.ss
index 91900e54d6..267011cc1d 100644
--- a/collects/launcher/launcher-unit.ss
+++ b/collects/launcher/launcher-unit.ss
@@ -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))))