Make the HTML man page script a little more robust
This commit was SVN r24539.
Этот коммит содержится в:
родитель
aac0db05bb
Коммит
dd2e57f41c
14
contrib/dist/make-html-man-pages.pl
поставляемый
14
contrib/dist/make-html-man-pages.pl
поставляемый
@ -26,12 +26,22 @@ my $mandir;
|
||||
my $version;
|
||||
my $outdir_base = ".";
|
||||
|
||||
sub absoluteize {
|
||||
my ($dir) = shift;
|
||||
my $start = cwd();
|
||||
chdir($dir);
|
||||
$dir = cwd();
|
||||
chdir($start);
|
||||
|
||||
return $dir;
|
||||
}
|
||||
|
||||
# Read command line arguments
|
||||
while (@ARGV) {
|
||||
my $a = $ARGV[0];
|
||||
if ($a eq "--mandir" && $#ARGV >= 1) {
|
||||
shift @ARGV;
|
||||
$mandir = $ARGV[0];
|
||||
$mandir = absoluteize($ARGV[0]);
|
||||
print "Found mandir: $mandir\n";
|
||||
}
|
||||
|
||||
@ -43,7 +53,7 @@ while (@ARGV) {
|
||||
|
||||
elsif ($a eq "--outdir" && $#ARGV >= 1) {
|
||||
shift @ARGV;
|
||||
$outdir_base = $ARGV[0];
|
||||
$outdir_base = absoluteize($ARGV[0]);
|
||||
print "Found outdir: $outdir_base\n";
|
||||
}
|
||||
shift @ARGV;
|
||||
|
Загрузка…
Ссылка в новой задаче
Block a user