Initial version.

This commit is contained in:
Janet B. Anderson
2004-04-05 15:07:44 +00:00
parent 1165285c6f
commit 52f10d9b47

View File

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