From 32c72c495e3bd1f2458008e09a8952630e57bf0e Mon Sep 17 00:00:00 2001 From: Galen Charlton Date: Tue, 18 Dec 2007 11:31:11 -0600 Subject: [PATCH] installer: bug 1640: deal with '$' in passwords --- Makefile.PL | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/Makefile.PL b/Makefile.PL index 594508122c..2c619f440c 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -1096,9 +1096,14 @@ sub postamble { # so that Make will export as environment # variables -- this is for the use of # rewrite-confg.PL - my $env = join("\n", map { "export __${_}__ = $target_directories->{$_}" } keys %$target_directories); + my $env = join("\n", map { "export __${_}__ := $target_directories->{$_}" } keys %$target_directories); $env .= "\n\n"; - $env .= join("\n", map { "export __${_}__ = $config{$_}" } keys %config); + + # quote '$' in the two password parameters + my %config = %config; + $config{'DB_PASS'} =~ s/\$/\$\$/g; + $config{'ZEBRA_PASS'} =~ s/\$/\$\$/g; + $env .= join("\n", map { "export __${_}__ := $config{$_}" } keys %config); return "$env\n"; } -- 2.39.5