Added a check to see if "$ARGV[0]" exists pre Andy Foster request.
This commit is contained in:
1 parent
95fd1a7623
commit
6614ff45a9
1 file changed
+5
-3
@@ -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";
|
||||
}
|
||||
Reference in new issue
Block a user