Config: escape \\ (windows paths) #78

all non-valid escape chars need to be escaped. "c:\perl" => "c:\\perl"
perl11 · Dec 7, 2015 · 61165ca · 61165ca
1 parent ef38993
commit 61165ca
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/ext/Config/Config_xs.PL b/ext/Config/Config_xs.PL
@@ -201,7 +201,8 @@ while (<$in>) {
         my $k = $1;
         my $v = $h{$k};
         my $qv = $v;
-        $qv =~ s/(\\[nrftacx ])/\\$1/g; # \n => \\n
+        $qv =~ s/(\\[^nrftacx"' ])/\\$1/g; # windows paths: \\ => \\\\
+        $qv =~ s/(\\[nrftacx ])/\\$1/g;  # \n => \\n, allowed escape chars
         my $l =  $v =~ m/["'\\]/ ?
           # don't calculate C-style length [cperl #61], let C do it for us
           # and don't count the ending \0