1
1

Make the HTML man page script a little more robust

This commit was SVN r24539.
Этот коммит содержится в:
Jeff Squyres 2011-03-17 15:09:23 +00:00
родитель aac0db05bb
Коммит dd2e57f41c

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;