#!/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 $PACKAGE (@{$dh{DOPACKAGES}}) {
- $TMP=tmpdir($PACKAGE);
+foreach my $package (@{$dh{DOPACKAGES}}) {
+ my $tmp=tmpdir($package);
my %seen;
my $need_ldconfig = 0;
- doit("rm", "-f", "$TMP/DEBIAN/shlibs");
+ 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>) {
- 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");
+
+ if (! -d "$tmp/DEBIAN") {
+ doit("install","-d","$tmp/DEBIAN");
}
- $deps=$PACKAGE;
+ my $deps=$package;
if ($dh{V_FLAG_SET}) {
if ($dh{V_FLAG} ne '') {
$deps=$dh{V_FLAG};
else {
# Call isnative becuase it sets $dh{VERSION}
# as a side effect.
- isnative($PACKAGE);
- $deps="$PACKAGE (>= $dh{VERSION})";
+ isnative($package);
+ 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}) {
$seen{$line}=1;
- complex_doit("echo '$line' >>$TMP/DEBIAN/shlibs");
+ complex_doit("echo '$line' >>$tmp/DEBIAN/shlibs");
}
}
}
close FIND;
# New as of dh_v3.
- if (! Debian::Debhelper::Dh_Lib::compat(2) &&
- ! $dh{NOSCRIPTS} && $need_ldconfig) {
- autoscript($PACKAGE,"postinst","postinst-makeshlibs");
- autoscript($PACKAGE,"postrm","postrm-makeshlibs");
+ if (! compat(2) && ! $dh{NOSCRIPTS} && $need_ldconfig) {
+ autoscript($package,"postinst","postinst-makeshlibs");
+ autoscript($package,"postrm","postrm-makeshlibs");
}
- if (-e "$TMP/DEBIAN/shlibs") {
- doit("chmod",644,"$TMP/DEBIAN/shlibs");
- doit("chown","0.0","$TMP/DEBIAN/shlibs");
+ if (-e "$tmp/DEBIAN/shlibs") {
+ doit("chmod",644,"$tmp/DEBIAN/shlibs");
+ doit("chown","0.0","$tmp/DEBIAN/shlibs");
}
}
+
+=head1 SEE ALSO
+
+L<debhelper(1)>
+
+This program is a part of debhelper.
+
+=head1 AUTHOR
+
+Joey Hess <joeyh@debian.org>
+
+=cut