summaryrefslogtreecommitdiffstats
path: root/lib/MDK
diff options
context:
space:
mode:
Diffstat (limited to 'lib/MDK')
-rw-r--r--lib/MDK/Common.pm.pl2
-rw-r--r--lib/MDK/Common/System.pm3
2 files changed, 2 insertions, 3 deletions
diff --git a/lib/MDK/Common.pm.pl b/lib/MDK/Common.pm.pl
index 3581430..6c54e4e 100644
--- a/lib/MDK/Common.pm.pl
+++ b/lib/MDK/Common.pm.pl
@@ -73,7 +73,7 @@ our @ISA = qw(Exporter);
# perl_checker: RE-EXPORT-ALL
our @EXPORT = map { @$_ } map { values %{'MDK::Common::' . $_ . 'EXPORT_TAGS'} } grep { /::$/ } keys %MDK::Common::;
-our $VERSION = "1.2.14";
+our $VERSION = "1.2.15";
1;
EOF
diff --git a/lib/MDK/Common/System.pm b/lib/MDK/Common/System.pm
index b4f43c8..71b9bad 100644
--- a/lib/MDK/Common/System.pm
+++ b/lib/MDK/Common/System.pm
@@ -377,8 +377,7 @@ sub setVarsInShMode {
if ($val =~ /["`\$]/) {
$val =~ s/(')/\\$1/g;
$val = qq('$val');
- } elsif ($val =~ /['|\s\\]/) {
- $val =~ s/(["\\])/\\$1/g;
+ } elsif ($val =~ /[\(\)'|\s\\]/) {
$val = qq("$val");
}
"$_=$val\n";