For winXX convert \ to / in $0

1998-06-16 19:23:03 +00:00
parent 3c675f2565
commit 529c35ff73
1 changed files with 3 additions and 0 deletions
--- 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

 #