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 $version;
|
||||||
my $outdir_base = ".";
|
my $outdir_base = ".";
|
||||||
|
|
||||||
|
sub absoluteize {
|
||||||
|
my ($dir) = shift;
|
||||||
|
my $start = cwd();
|
||||||
|
chdir($dir);
|
||||||
|
$dir = cwd();
|
||||||
|
chdir($start);
|
||||||
|
|
||||||
|
return $dir;
|
||||||
|
}
|
||||||
|
|
||||||
# Read command line arguments
|
# Read command line arguments
|
||||||
while (@ARGV) {
|
while (@ARGV) {
|
||||||
my $a = $ARGV[0];
|
my $a = $ARGV[0];
|
||||||
if ($a eq "--mandir" && $#ARGV >= 1) {
|
if ($a eq "--mandir" && $#ARGV >= 1) {
|
||||||
shift @ARGV;
|
shift @ARGV;
|
||||||
$mandir = $ARGV[0];
|
$mandir = absoluteize($ARGV[0]);
|
||||||
print "Found mandir: $mandir\n";
|
print "Found mandir: $mandir\n";
|
||||||
}
|
}
|
||||||
|
|
||||||
@ -43,7 +53,7 @@ while (@ARGV) {
|
|||||||
|
|
||||||
elsif ($a eq "--outdir" && $#ARGV >= 1) {
|
elsif ($a eq "--outdir" && $#ARGV >= 1) {
|
||||||
shift @ARGV;
|
shift @ARGV;
|
||||||
$outdir_base = $ARGV[0];
|
$outdir_base = absoluteize($ARGV[0]);
|
||||||
print "Found outdir: $outdir_base\n";
|
print "Found outdir: $outdir_base\n";
|
||||||
}
|
}
|
||||||
shift @ARGV;
|
shift @ARGV;
|
||||||
|
Загрузка…
Ссылка в новой задаче
Block a user