summaryrefslogtreecommitdiffstats
path: root/lib/MDK/Common
diff options
context:
space:
mode:
authorPascal Terjan <pterjan@mandriva.org>2009-02-02 10:29:51 +0000
committerPascal Terjan <pterjan@mandriva.org>2009-02-02 10:29:51 +0000
commit3c47af81cc0fcd39a403feccb72e281ea87f1f24 (patch)
treefb2b372e2b03c6de75e81d749970d42d5763e91d /lib/MDK/Common
parent7cb27275b7c6316bdc9b58fd98e3a55999f1094c (diff)
downloadperl-MDK-Common-3c47af81cc0fcd39a403feccb72e281ea87f1f24.tar
perl-MDK-Common-3c47af81cc0fcd39a403feccb72e281ea87f1f24.tar.gz
perl-MDK-Common-3c47af81cc0fcd39a403feccb72e281ea87f1f24.tar.bz2
perl-MDK-Common-3c47af81cc0fcd39a403feccb72e281ea87f1f24.tar.xz
perl-MDK-Common-3c47af81cc0fcd39a403feccb72e281ea87f1f24.zip
- protect ;<>&#[]~{}*? in setVarsInSh
Diffstat (limited to 'lib/MDK/Common')
-rw-r--r--lib/MDK/Common/System.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/MDK/Common/System.pm b/lib/MDK/Common/System.pm
index 71b9bad..e3d514d 100644
--- a/lib/MDK/Common/System.pm
+++ b/lib/MDK/Common/System.pm
@@ -377,7 +377,7 @@ sub setVarsInShMode {
if ($val =~ /["`\$]/) {
$val =~ s/(')/\\$1/g;
$val = qq('$val');
- } elsif ($val =~ /[\(\)'|\s\\]/) {
+ } elsif ($val =~ /[\(\)'|\s\\;<>&#\[\]~{}*?]/) {
$val = qq("$val");
}
"$_=$val\n";