epics/pcas
0
0
Fork 0
Code Issues Pull Requests Projects Wiki Activity

Do NOT modify $0. Copy it to another variable instead

Browse Source
This commit is contained in:
Marty Kraimer
1998-06-17 18:39:06 +00:00
parent c39be663e2
commit 5e0bfbc9f7
1 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
src/makeBaseApp/makeBaseApp.pl
View File

@@ -14,8 +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;
# For winXX convert each instance of \ to /
$command = $0;
$command =~ s|\\|/|g;
&get_commandline_opts; # Read and check options
@@ -138,8 +139,8 @@ sub get_commandline_opts { #no args
s/EPICS_BASE\s*=\s*// and $epics_base = $_, break;
}
close IN;
} elsif ($0 =~ /\/bin\//) { # assume script was called with full path to base
$epics_base = $0;
} elsif ($command =~ /\/bin\//) { # assume script was called with full path to base
$epics_base = $command;
$epics_base =~ s:(/.*)/bin/.*makeBaseApp.*:$1:;
}
"$epics_base" or Cleanup(1, "Cannot find EPICS base");