[Rt-commit] rt branch, 4.2/installer-escapes, created. rt-4.2.4-21-g1b9086e

[Alex Vandiver]

The branch, 4.2/installer-escapes has been created
        at  1b9086e1e7d505f821a0ba482218668276516f87 (commit)

- Log -----------------------------------------------------------------
commit 1b9086e1e7d505f821a0ba482218668276516f87
Author: Alex Vandiver <alexmv at bestpractical.com>
Date:   Thu May 22 17:14:19 2014 -0500

    Escape quotes and backslases that we are about to put between single-quotes

diff --git a/lib/RT/Installer.pm b/lib/RT/Installer.pm
index c48b06c..2c4050f 100644
--- a/lib/RT/Installer.pm
+++ b/lib/RT/Installer.pm
@@ -288,7 +288,9 @@ sub SaveConfig {
             # remove obsolete settings we'll add later
             $content =~ s/^\s* Set \s* \( \s* \$$_ .*$//xm;
 
-            $content .= "Set( \$$_, '$RT::Installer->{InstallConfig}{$_}' );\n";
+            my $value = $RT::Installer->{InstallConfig}{$_};
+            $value =~ s/(['\\])/\\$1/g;
+            $content .= "Set( \$$_, '$value' );\n";
         }
         $content .= "1;\n";
         print $fh $content;

-----------------------------------------------------------------------