From 26575434d3b55e918fc49f946dc0d19c7a390339 Mon Sep 17 00:00:00 2001
From: "H. Peter Anvin" <hpa@zytor.com>
Date: Tue, 4 Jun 2002 00:44:46 +0000
Subject: [PATCH] Don't hard-code '.' as the current directory

---
 doc/genpsdriver.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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