r511: * dh_movefiles: Allow for deeper --sourcedir. Closes: #131363

[debhelper.git] / dh_installman

diff --git a/dh_installman b/dh_installman
index 9c71774f5f06b714edcb1ee938547e3325ab9106..30fde7e2d3071b0dc8b268519caebadaf847da47 100755 (executable)
--- a/dh_installman
+++ b/dh_installman
@@ -12,15 +12,26 @@ use Debian::Debhelper::Dh_Lib;
 
 =head1 SYNOPSIS
 
-  dh_installman [debhelper options] [manpage ...]
+B<dh_installman> [S<I<debhelper options>>] [S<I<manpage ...>>]
 
 =head1 DESCRIPTION
 
-dh_installman is a debhelper program that is responsible for installing
+dh_installman is a debhelper program that handles installing
 man pages into the correct locations in package build directories. You tell
-it what man pages go in your package(s), and it figures out where to
+it what man pages go in your packages, and it figures out where to
 install them based on the section field in their .TH line and their filename
-extention.
+extension. It also supports translated man pages, by looking for extensions
+like .ll.8 and .ll_LL.8
+
+If dh_installman seems to install a man page into the wrong section or with
+the wrong extension, this is because the man page has the wrong section
+listed in its .TH line. Edit the man page and correct the section, and
+dh_installman will follow suit.  See to L<man(7)> for details about the .TH
+section.  If dh_installman seems to install a man page into a directory
+like /usr/share/man/pl/man1/, that is because your program has a
+name like "foo.pl", and dh_installman assumes that means it is translated
+into Polish. There is currently no support for resolving this ambiguity;
+programs in debian should proably not have extensions like that anyway.
 
 Any man page filenames specified as parameters will be installed into the
 first package dh_installman is told to act on. By default, this is the
@@ -78,7 +89,7 @@ foreach my $package (@{$dh{DOPACKAGES}}) {
        }
 
        foreach my $page (@manpages) {
-               my $basename=Debian::Debhelper::Dh_Lib::basename($page);
+               my $basename=basename($page);
 
                # Support compressed pages.
                my $gz='';
@@ -97,14 +108,14 @@ foreach my $package (@{$dh{DOPACKAGES}}) {
                        open (IN, $page) or die "$page: $!";
                }
                while (<IN>) {
-                       if (/^\.TH\s+[^         ]+\s+(\d+[^     ]*)\s/) {
+                       if (/^\.TH\s+\S+\s+(\d+\S*)\s/) {
                                $section=$1;
                                last;
                        }
                }
                # Failing that, we can try to get it from the filename.
                if (! $section) {
-                       ($section)=$basename=~m/.*\.([1-9][^ ]*)/;
+                       ($section)=$basename=~m/.*\.([1-9]\S*)/;
                }
 
                # Now get the numeric component of the section.
@@ -115,19 +126,21 @@ foreach my $package (@{$dh{DOPACKAGES}}) {
                        error("Could not determine section for $page");
                }
                
+               # Get the man page's name -- everything up to the last dot.
+               my ($instname)=$basename=~m/^(.*)\./;
+       
                my $destdir="$tmp/usr/share/man/man$realsection/";
                # Translated man pages are typically specified by adding the
                # language code to the filename, so detect that and
-               # redirect to appropriate directory.
+               # redirect to appropriate directory, stripping the code.
                my ($langcode)=$basename=~m/.*\.([a-z][a-z](?:_[A-Z][A-Z])?)\.(?:[1-9]|man)/;
                if (defined $langcode && $langcode ne '') {
                        $destdir="$tmp/usr/share/man/$langcode/man$section/";
+                       # Strip the language code from the instname.
+                       $instname=~s/\.$langcode$//;
                }
                $destdir=~tr:/:/:s; # just for looks
 
-               # Get the man page's name -- everything up to the last dot.
-               my ($instname)=$basename=~m/^(.*)\./;
-       
                if (! -e "$destdir/$instname.$section" && 
                    ! -l "$destdir/$instname.$section") {
                        if (! -d $destdir) {
@@ -162,15 +175,15 @@ sub find_so_man {
        }
 
        # Test first line of file for the .so thing.
-       open (SOTEST,$_);
+       open (SOTEST,$_) || die "$_: $!";
        my $l=<SOTEST>;
        close SOTEST;
        if ($l=~m/\.so\s+(.*)/) {
                my $solink=$1;
                # This test is here to prevent links like ... man8/../man8/foo.8
-               if (Debian::Debhelper::Dh_Lib::basename($File::Find::dir) eq
-                   Debian::Debhelper::Dh_Lib::dirname($solink)) {
-                       $solink=Debian::Debhelper::Dh_Lib::basename($solink);
+               if (basename($File::Find::dir) eq
+                   dirname($solink)) {
+                       $solink=basename($solink);
                }
                else {
                        $solink="../$solink";