From Wolfram: Fix: typos, old links
Submitted by: wosch@cs.tu-berlin.de (Wolfram Schneider)
This commit is contained in:
parent
80333f1d63
commit
dc230e1689
@ -30,7 +30,7 @@
|
||||
.\"
|
||||
.\" E-mail: Wolfram Schneider <wosch@cs.tu-berlin.de>
|
||||
.\"
|
||||
.\" $Id: catman.1,v 1.9 1995/03/27 19:51:14 w Exp $
|
||||
.\" $Id: catman.1,v 1.4 1995/03/31 04:00:17 joerg Exp $
|
||||
.\"
|
||||
|
||||
.Dd Mar 12, 1995
|
||||
@ -100,7 +100,7 @@ if neccessary.
|
||||
Format all your man pages if neccessary.
|
||||
|
||||
.Pp
|
||||
.Dl $ catman -o /usr/local/man/man1 /usr/local/man/manl
|
||||
.Dl $ catman -f /usr/local/man/man1 /usr/local/man/manl
|
||||
.Pp
|
||||
Force reformatting of all man pages in
|
||||
.Pa /usr/local/man/man1
|
||||
|
@ -35,7 +35,7 @@
|
||||
# Bugs: sure
|
||||
# Email: Wolfram Schneider <wosch@cs.tu-berlin.de>
|
||||
#
|
||||
# $Id: catman.pl,v 1.10 1995/03/18 19:57:22 w Exp $
|
||||
# $Id: catman.perl,v 1.4 1995/03/31 04:00:20 joerg Exp $
|
||||
#
|
||||
|
||||
sub usage {
|
||||
@ -327,10 +327,14 @@ sub nroff {
|
||||
if ($link{"$dev.$ino"}) {
|
||||
warn "Link: $link{\"$dev.$ino\"} -> $cat\n" if $verbose || $print;
|
||||
|
||||
if (!$print && !link($link{"$dev.$ino"}, $cat)) {
|
||||
return if $print; # done
|
||||
unlink($cat); # remove possible old link
|
||||
|
||||
unless (link($link{"$dev.$ino"}, $cat)) {
|
||||
warn "Link $cat: $!\n";
|
||||
$exit = 1;
|
||||
}
|
||||
return;
|
||||
} else {
|
||||
$cat = "$cat$ext" if $cat !~ /$ext$/;
|
||||
warn "Format: $man -> $cat\n" if $verbose || $print;
|
||||
@ -348,7 +352,7 @@ sub nroff {
|
||||
system("$nroff | gzip > $cat.tmp");
|
||||
if ($?) {
|
||||
# assume a fatal signal to nroff
|
||||
&Exit("INT to system() funktion") if ($? == 2);
|
||||
&Exit("INT to system() function") if ($? == 2);
|
||||
} else {
|
||||
rename("$cat.tmp", $cat);
|
||||
}
|
||||
|
Loading…
Reference in New Issue
Block a user