# 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 '') {
}
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