diff options
Diffstat (limited to 'MDK')
| -rw-r--r-- | MDK/Common.pm.pl | 2 | ||||
| -rw-r--r-- | MDK/Common/System.pm | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/MDK/Common.pm.pl b/MDK/Common.pm.pl index bf785cc..2a4e5ea 100644 --- a/MDK/Common.pm.pl +++ b/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.2"; +our $VERSION = "1.2.3"; 1; EOF diff --git a/MDK/Common/System.pm b/MDK/Common/System.pm index 0f77d98..a947523 100644 --- a/MDK/Common/System.pm +++ b/MDK/Common/System.pm @@ -376,7 +376,7 @@ sub setVarsInShMode { if ($val =~ /["`\$]/) { $val =~ s/(')/\\$1/g; $val = qq('$val'); - } elsif ($val =~ /['\s\\]/) { + } elsif ($val =~ /['|\s\\]/) { $val =~ s/(["\\])/\\$1/g; $val = qq("$val"); } |