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

diff --git a/doc/genpsdriver.pl b/doc/genpsdriver.pl
index c2d8085..0136e3e 100644 (file)
--- a/doc/genpsdriver.pl
+++ b/doc/genpsdriver.pl
@@ -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');