diff options
| -rw-r--r-- | doc/genpsdriver.pl | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/doc/genpsdriver.pl b/doc/genpsdriver.pl index f05544a..eac4c98 100644 --- a/doc/genpsdriver.pl +++ b/doc/genpsdriver.pl @@ -9,13 +9,19 @@ # necessarily work on non-Unix systems. # +use File::Spec; +use Fcntl; + $perl = $ENV{'PERL'} || 'perl'; $srcdir = $ENV{'srcdir'} || '.'; -open(VERSION, '< ../version') or die "$0: cannot open ../version\n"; +$versionfile = File::Spec->catfile(File::Spec->updir($srcdir), 'version'); +$genps = File::Spec->catfile($srcdir, 'genps.pl'); + +sysopen(VERSION, $versionfile, O_RDONLY) + or die "$0: cannot open $versionfile\n"; $version = <VERSION>; chomp $version; close(VERSION); -system($perl, "${srcdir}/genps.pl", '-subtitle', - 'version '.$version, 'nasmdoc.dip'); +system($perl, $genps, '-subtitle', 'version '.$version, 'nasmdoc.dip'); |