diff --git a/configure/tools/fullPathName.pl b/configure/tools/fullPathName.pl index e2585a22b..a194c6f69 100755 --- a/configure/tools/fullPathName.pl +++ b/configure/tools/fullPathName.pl @@ -1,10 +1,19 @@ eval 'exec perl -S -w $0 ${1+"$@"}' # -*- Mode: perl -*- if 0; +# +# Determine fullpathname if argument starts with "." +# else return argument value. +# + use Cwd 'abs_path'; my $dir; -if( $ARGV[0] ) -{ - $dir = abs_path("$ARGV[0]"); - print "$dir\n"; +if( $ARGV[0] ) { + if( $ARGV[0] =~ /^\./ ) + { + $dir = abs_path("$ARGV[0]"); + print "$dir\n"; + } else { + print "$ARGV[0]\n"; + } }