X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=dh_installmanpages;h=415c86b7a21ec63aaa5a24be4cba6f548269f8a2;hb=refs%2Ftags%2F4.2.7;hp=60dcd832ea5f8f10df8b92972d48a6fc208ac8dc;hpb=7f94f1760a87781615730ae5daf9b6b58a7feaf9;p=debhelper.git

diff --git a/dh_installmanpages b/dh_installmanpages
index 60dcd83..415c86b 100755
--- a/dh_installmanpages
+++ b/dh_installmanpages
@@ -12,7 +12,7 @@ use Debian::Debhelper::Dh_Lib;
 
 =head1 SYNOPSIS
 
-  dh_installmanpages [debhelper options] [file ...]
+B<dh_installmanpages> [S<I<debhelper options>>] [S<I<file ...>>]
 
 =head1 DESCRIPTION
 
@@ -112,9 +112,9 @@ sub find_so_man {
 	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";
@@ -126,11 +126,13 @@ sub find_so_man {
 }
 
 foreach my $package (@{$dh{DOPACKAGES}}) {
+	next if is_udeb($package);
+
 	my $tmp=tmpdir($package);
 
 	# Find all filenames that look like man pages.
 	@manpages=();
-	@allpackages=GetPackages('');
+	@allpackages=getpackages('');
 	find(\&find_man,'.'); # populates @manpages
 	
 	foreach my $page (@manpages) {
@@ -142,7 +144,7 @@ foreach my $package (@{$dh{DOPACKAGES}}) {
 		my $install=1;
 		foreach my $skip (@ARGV) {
 			# Look at basename of what's on connect line
-			# for backwards compatability.
+			# for backwards compatibility.
 			if ($basename eq basename($skip)) {
 				$install=undef;
 				last;
@@ -195,7 +197,7 @@ foreach my $package (@{$dh{DOPACKAGES}}) {
 
 =head1 SEE ALSO
 
-L<debhelper(1)>
+L<debhelper(7)>
 
 This program is a part of debhelper.