diff options
| author | Pascal Terjan <pterjan@mandriva.org> | 2009-03-11 10:31:48 +0000 |
|---|---|---|
| committer | Pascal Terjan <pterjan@mandriva.org> | 2009-03-11 10:31:48 +0000 |
| commit | b49a30481e1455cc938f20714cd64c34e872546f (patch) | |
| tree | 070f26c81e025d3ec4726e8e2417f717921a9ef9 /lib | |
| parent | d1aaeb46ed5fc7609199c491627abdc16970d0b2 (diff) | |
| download | perl-MDK-Common-b49a30481e1455cc938f20714cd64c34e872546f.tar perl-MDK-Common-b49a30481e1455cc938f20714cd64c34e872546f.tar.gz perl-MDK-Common-b49a30481e1455cc938f20714cd64c34e872546f.tar.bz2 perl-MDK-Common-b49a30481e1455cc938f20714cd64c34e872546f.tar.xz perl-MDK-Common-b49a30481e1455cc938f20714cd64c34e872546f.zip | |
- quote correctly ' inside ''
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/MDK/Common/System.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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"); |