Commit 91e8a979 authored by hrchilds's avatar hrchilds
Browse files

Fix for startup problem on machines with defective dirname programs.


git-svn-id: http://visit.ilight.com/svn/visit/trunk/src@12397 18c085ea-50e0-402c-830e-de6fd14e8384
parent c77ecb26
......@@ -109,6 +109,10 @@ exec perl -x $0 ${1+"$@"};
# Removed '-v' full patch warning. Changed the order of insertion for
# '-forceversion' when full patch is specified via '-v'.
#
# Hank Childs, Tue Aug 31 15:29:25 PDT 2010
# Add trick to remove trailing slashes for machines with defective
# dirname programs.
#
###############################################################################
......@@ -126,6 +130,10 @@ $ENV{PATH} = join ':' , ("$ENV{PATH}","/bin","/usr/bin","/usr/sbin",
# set base directory
chomp( $progname= `basename $0`);
chomp( $progdir = `dirname $0` );
# Defective machines may still have a trailing slash ... fix here:
chop($progdir) if $progdir =~ m|/$|;
chomp( $cwd = getcwd() );
if (!$cwd) {
chomp( $cwd = `pwd` );
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment