From b43cff12c0012bef87075ceb9090d4e83fbaf5de Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 4 Sep 2006 12:25:43 +0000 Subject: setVarsInSh: fix writing "|" in sh config files --- MDK/Common.pm.pl | 2 +- MDK/Common/System.pm | 2 +- perl-MDK-Common.spec | 3 +++ 3 files changed, 5 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"); } diff --git a/perl-MDK-Common.spec b/perl-MDK-Common.spec index 3f129d9..29b9d34 100644 --- a/perl-MDK-Common.spec +++ b/perl-MDK-Common.spec @@ -42,6 +42,9 @@ rm -rf $RPM_BUILD_ROOT # MODIFY IN THE CVS: cvs.mandrakesoft.com:/cooker soft/perl-MDK-Common %changelog +* Mon Sep 4 2006 Pixel 1.2.3-1mdv2007.0 +- setVarsInSh: fix writing "|" in sh config files + * Tue Jan 3 2006 Pixel 1.2.2-1mdk - better fix for syscall.ph used somewhere else -- cgit v1.2.1