Don't hard-code '.' as the current directory

This commit is contained in:
H. Peter Anvin 2002-06-04 00:44:46 +00:00
parent 9afe07415c
commit 26575434d3

View file

@ -13,7 +13,7 @@ use File::Spec;
use Fcntl;
$perl = $ENV{'PERL'} || 'perl';
$srcdir = $ENV{'srcdir'} || '.';
$srcdir = $ENV{'srcdir'} || File::Spec->curdir();
$versionfile = File::Spec->catfile(File::Spec->updir($srcdir), 'version');
$genps = File::Spec->catfile($srcdir, 'genps.pl');