From b49a30481e1455cc938f20714cd64c34e872546f Mon Sep 17 00:00:00 2001 From: Pascal Terjan Date: Wed, 11 Mar 2009 10:31:48 +0000 Subject: - quote correctly ' inside '' --- lib/MDK/Common/System.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lib') diff --git a/lib/MDK/Common/System.pm b/lib/MDK/Common/System.pm index 419a8d4..05003bb 100644 --- a/lib/MDK/Common/System.pm +++ b/lib/MDK/Common/System.pm @@ -371,7 +371,7 @@ sub setVarsInSh { sub quoteForSh { my ($val) = @_; if ($val =~ /["`\$]/) { - $val =~ s/(')/\\$1/g; + $val =~ s/(')/$1\\$1$1/g; $val = qq('$val'); } elsif ($val =~ /[\(\)'|\s\\;<>&#\[\]~{}*?]/) { $val = qq("$val"); -- cgit v1.2.1