my $destdir="$tmp/usr/share/man/man$realsection/";
my $langcode;
- if (! exists $dh{LANGUAGE}) {
+ if (! defined $dh{LANGUAGE} || ! exists $dh{LANGUAGE}) {
# Translated man pages are typically specified by adding the
# language code to the filename, so detect that and
# redirect to appropriate directory, stripping the code.
($langcode)=$basename=~m/.*\.([a-z][a-z](?:_[A-Z][A-Z])?)\.(?:[1-9]|man)/;
- if (defined $langcode && $langcode ne '') {
- # Strip the language code from the instname.
- $instname=~s/\.$langcode$//;
- }
}
elsif ($dh{LANGUAGE} ne 'C') {
$langcode=$dh{LANGUAGE};
- ($instname)=$basename=~m/(.*?)\./;
+ }
+
+ if (defined $langcode && $langcode ne '') {
+ # Strip the language code from the instname.
+ $instname=~s/\.$langcode$//;
}
if (defined $langcode && $langcode ne '') {
}
$destdir=~tr:/:/:s; # just for looks
- if (! -e "$destdir/$instname.$section" &&
- ! -l "$destdir/$instname.$section") {
- if (! -d $destdir) {
- doit "install","-d",$destdir;
- }
- doit "install","-p","-m644",$page,
- "$destdir$instname.$section$gz";
+ next if -l "$destdir/$instname.$section";
+ next if compat(5) && -e "$destdir/$instname.$section";
+
+ if (! -d $destdir) {
+ doit "install","-d",$destdir;
}
+ doit "install","-p","-m644",$page,
+ "$destdir$instname.$section$gz";
}
}
my $l=<SOTEST>;
close SOTEST;
+
+ if (! defined $l) {
+ error("failed to read $_");
+ }
+
if ($l=~m/\.so\s+(.*)\s*/) {
my $solink=$1;
# This test is here to prevent links like ... man8/../man8/foo.8