r474: * Added -X flag to dh_makeshlibs, for packages with wacky plugins that

[debhelper.git] / dh_makeshlibs

diff --git a/dh_makeshlibs b/dh_makeshlibs
index de29453c21e1c63c6ecdbca79f4ddb8c13e00f85..bb1d8acd8a715e3a0a8d605c335fa45b80a174f7 100755 (executable)
--- a/dh_makeshlibs
+++ b/dh_makeshlibs
@@ -11,7 +11,7 @@ use Debian::Debhelper::Dh_Lib;
 
 =head1 SYNOPSIS
 
-  dh_makeshlibs [debhelper options] [-mmajor] [-V[dependancies]] [-n]
+  dh_makeshlibs [debhelper options] [-mmajor] [-V[dependancies]] [-n] [-Xitem]
 
 =head1 DESCRIPTION
 
@@ -27,8 +27,10 @@ DH_COMPAT=3 mode and above only).
 
 =item B<-m>I<major>, B<--major=>I<major>
 
-Instead of trying to guess the major number of the library from the
-filename of the library, use the major number specified after the -m parameter.
+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>
 
@@ -47,6 +49,11 @@ information needed (be sure to include the package name).
 
 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
@@ -68,14 +75,6 @@ file that looks something like:
 Generates a shlibs file that looks something like:
   libfoobar 1 libfoobar1 (>= 1.0)
 
-=head1 NOTES
-
-There is no guarantee that the program will get the shlibs file right. For
-example, it may not correctly guess the major number of your package. In
-cases like these (and perhaps in general, just to be safe), it is better to
-create a debian/shlibs file by hand, or force it to use the correct major
-number by specifying the -m parameter.
-
 =cut
 
 init();
@@ -88,22 +87,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");
                }
@@ -121,6 +134,7 @@ foreach my $package (@{$dh{DOPACKAGES}}) {
                }
                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}) {