From f9ebe082ff8560bed8e68523b1e3dee8649246ad Mon Sep 17 00:00:00 2001
From: Andrew Johnson <anj@aps.anl.gov>
Date: Tue, 14 Dec 2010 15:05:26 -0600
Subject: [PATCH] registry: Escape back-slashes in bldTop string literal on
 Win32.

---
 src/registry/registerRecordDeviceDriver.pl | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/registry/registerRecordDeviceDriver.pl b/src/registry/registerRecordDeviceDriver.pl
index 87f6ba985..17adeee81 100755
--- a/src/registry/registerRecordDeviceDriver.pl
+++ b/src/registry/registerRecordDeviceDriver.pl
@@ -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;