X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=dh_makeshlibs;h=7a4e7b1dc856ba2ea61168b399e1aa97ef8033e8;hb=3aa6fbb20465d16cf23e1607b078ed3cedf95ebe;hp=20644d80e6be01d4be417da8179cc7622148dcba;hpb=053f6f8b4e7431d32511aef209188a084e8c7e79;p=debhelper.git

diff --git a/dh_makeshlibs b/dh_makeshlibs
index 20644d8..7a4e7b1 100755
--- a/dh_makeshlibs
+++ b/dh_makeshlibs
@@ -1,9 +1,88 @@
 #!/usr/bin/perl -w
-#
-# Automatically generate shlibs files.
+
+=head1 NAME
+
+dh_makeshlibs - automatically create shlibs file
+
+=cut
 
 use strict;
 use Debian::Debhelper::Dh_Lib;
+
+=head1 SYNOPSIS
+
+B<dh_makeshlibs> [S<I<debhelper options>>] [B<-m>I<major>] [B<-V>I<[dependancies]>] [B<-n>] [B<-X>I<item>]
+
+=head1 DESCRIPTION
+
+dh_makeshlibs is a debhelper program that automatically scans for shared
+libraries, and generates a shlibs file for the libraries it finds.
+
+It also adds a call to ldconfig in the postinst and postrm scripts (in
+V3 mode and above only) to any packages which it finds shared libraries in.
+
+=head1 OPTIONS
+
+=over 4
+
+=item B<-m>I<major>, B<--major=>I<major>
+
+Instead of trying to guess the major number of the library with objdump,
+use the major number specified after the -m parameter. This is much less
+useful than it used to be, back in the bad old days when this program
+looked at library filenames rather than using objdump.
+
+=item B<-V>, B<-V>I<dependancies>
+
+=item B<--version-info>, B<--version-info=>I<dependancies>
+
+By default, the shlibs file generated by this program does not make packages
+depend on any particular version of the package containing the shared
+library. It may be necessary for you to add some version dependancy
+information to the shlibs file. If -V is specified with no dependancy
+information, the current version of the package is plugged into a
+dependancy that looks like "packagename (>= packageversion)". If -V is
+specified with parameters, the parameters can be used to specify the exact
+dependancy information needed (be sure to include the package name).
+
+Beware of using -V without any parameters; this is a conservative setting
+that always ensures that other packages' shared library dependencies are at
+least as tight as they need to be, so that if the maintainer screws up then
+they won't break. The flip side is that packages might end up with
+dependencies that are too tight and so find it harder to be upgraded.
+
+=item B<-n>, B<--noscripts>
+
+Do not modify postinst/postrm scripts.
+
+=item B<-X>I<item>, B<--exclude=>I<item>
+
+Exclude files that contain "item" anywhere in their filename from
+being treated as shared libraries.
+
+=back
+
+=head1 EXAMPLES
+
+ dh_makeshlibs
+
+Assuming this is a package named libfoobar1, generates a shlibs file that
+looks something like:
+ libfoobar 1 libfoobar1
+
+ dh_makeshlibs -V
+
+Assuming the current version of the package is 1.0-3, generates a shlibs
+file that looks something like:
+ libfoobar 1 libfoobar1 (>= 1.0-3)
+
+ dh_makeshlibs -V 'libfoobar1 (>= 1.0)'
+
+Generates a shlibs file that looks something like:
+  libfoobar 1 libfoobar1 (>= 1.0)
+
+=cut
+
 init();
 
 foreach my $package (@{$dh{DOPACKAGES}}) {
@@ -14,22 +93,36 @@ foreach my $package (@{$dh{DOPACKAGES}}) {
 
 	doit("rm", "-f", "$tmp/DEBIAN/shlibs");
 
-	open (FIND, "find $tmp -xtype f -name '*.so*' |");
+	# So, we look for files or links to existing files with names that
+	# match "*.so*". Matching *.so.* is not good enough because of
+	# broken crap like db3. And we only look at real files not
+	# symlinks, so we don't accidentually add shlibs data to -dev
+	# packages. This may have a few false positives, which is ok,
+	# because only if we can get a library name and a major number from
+	# objdump is anything actually added.
+	my $exclude='';
+	if (defined($dh{EXCLUDE_FIND}) && $dh{EXCLUDE_FIND} ne '') {
+		$exclude="! \\( $dh{EXCLUDE_FIND} \\) ";
+	}
+	open (FIND, "find $tmp -type f -name '*.so*' $exclude |");
 	while (<FIND>) {
-		my $library;
-		my $major;
-	
-		chomp;
-		$need_ldconfig=1;
-		# The second evil regexp is for db3, whose author should
-		# be shot.
-		if (m#.*/([^/]*)\.so\.(\d*)\.?# || m#.*/([^/]*)-([^\s/]+)\.so$#) {
-			$library = $1;
-			$major = $2;
+		my ($library, $major);
+		my $objdump=`objdump -p $_`;
+		if ($objdump=~m/\s+SONAME\s+(.+)\.so\.(.+)/) {
+			# proper soname format
+			$library=$1;
+			$major=$2;
+		}
+		elsif ($objdump=~m/\s+SONAME\s+(.+)-(.+)\.so/) {
+			# idiotic crap soname format
+			$library=$1;
+			$major=$2;
 		}
+
 		if (defined($dh{M_PARAMS}) && $dh{M_PARAMS} ne '') {
 			$major=$dh{M_PARAMS};
 		}
+		
 		if (! -d "$tmp/DEBIAN") {
 			doit("install","-d","$tmp/DEBIAN");
 		}
@@ -42,11 +135,19 @@ foreach my $package (@{$dh{DOPACKAGES}}) {
 				# Call isnative becuase it sets $dh{VERSION}
 				# as a side effect.
 				isnative($package);
-				$deps="$package (>= $dh{VERSION})";
+				my $version = $dh{VERSION};
+				# Old compatability levels include the
+				# debian revision, while new do not.
+				if (! compat(3)) {
+					# Remove debian version, if any.
+					$version =~ s/-[^-]+$//;
+				}
+				$deps="$package (>= $version)";
 			}
 		}
 		if (defined($library) && defined($major) && defined($deps) &&
 		    $library ne '' && $major ne '' && $deps ne '') {
+		    	$need_ldconfig=1;
 		    	# Prevent duplicate lines from entering the file.
 		    	my $line="$library $major $deps";
 			if (! $seen{$line}) {
@@ -68,3 +169,15 @@ foreach my $package (@{$dh{DOPACKAGES}}) {
 		doit("chown","0.0","$tmp/DEBIAN/shlibs");
 	}
 }
+
+=head1 SEE ALSO
+
+L<debhelper(7)>
+
+This program is a part of debhelper.
+
+=head1 AUTHOR
+
+Joey Hess <joeyh@debian.org>
+
+=cut