From 529c35ff73d56e513401f53455bb705b2d44e026 Mon Sep 17 00:00:00 2001
From: Marty Kraimer <mrkraimer@comcast.net>
Date: Tue, 16 Jun 1998 19:23:03 +0000
Subject: [PATCH] For winXX convert \ to / in $0

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

diff --git a/src/makeBaseApp/makeBaseApp.pl b/src/makeBaseApp/makeBaseApp.pl
index 50126ef3c..d07533f61 100755
--- a/src/makeBaseApp/makeBaseApp.pl
+++ b/src/makeBaseApp/makeBaseApp.pl
@@ -14,6 +14,9 @@ $cwd  = cwd();
 $eAPPTYPE = $ENV{EPICS_MBA_DEF_APP_TYPE};
 $eTOP     = $ENV{EPICS_MBA_TEMPLATE_TOP};
 
+# For winXX convert all each instance of \ to /
+$0 =~ s|\\|/|g;
+
 &get_commandline_opts;		# Read and check options
 
 #