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

Added a check to see if "$ARGV[0]" exists pre Andy Foster request.

Browse Source
This commit is contained in:
Janet B. Anderson
2004-06-01 16:53:22 +00:00
parent 95fd1a7623
commit 6614ff45a9
1 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
configure/tools/fullPathName.pl
View File

@@ -3,6 +3,8 @@ eval 'exec perl -S -w $0 ${1+"$@"}' # -*- Mode: perl -*-
use Cwd 'abs_path';
my $dir;
$dir = abs_path("$ARGV[0]");
print "$dir\n";
if( $ARGV[0] )
{
$dir = abs_path("$ARGV[0]");
print "$dir\n";
}