registry: Escape back-slashes in bldTop string literal on Win32.

This commit is contained in:
Andrew Johnson
2010-12-14 15:05:26 -06:00
parent dc76951945
commit f9ebe082ff

View File

@@ -18,6 +18,9 @@ $numberDriverSupport = 0;
$c_bad_ident_chars = '[^0-9A-Za-z_]';
$subname =~ s/$c_bad_ident_chars/_/g;
# Escape back-slashes in Windows path
$bldTop =~ s(\\)(\\\\)g if $^O eq 'MSWin32';
open(INP,"$file") or die "$! opening file";
while(<INP>) {
next if m/ ^ \s* \# /x;