diff options
| -rw-r--r-- | NEWS | 4 | ||||
| -rw-r--r-- | lib/MDK/Common.pm.pl | 2 | ||||
| -rw-r--r-- | lib/MDK/Common/System.pm | 3 |
3 files changed, 6 insertions, 3 deletions
@@ -1,3 +1,7 @@ +Version 1.2.15 - 26 January 2009, by Pascal Terjan + +- protect parenthesis in setVarsInSh and drop dead code (#47298) + Version 1.2.14 - 1 October 2008, by Pascal "Pixel" Rigaux - round_up(), round_down(): workaround "Illegal modulus zero" (#43165) 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"; |