3 # Automatically generate shlibs files.
5 use Debian::Debhelper::Dh_Lib;
8 foreach $PACKAGE (@{$dh{DOPACKAGES}}) {
13 doit("rm", "-f", "$TMP/DEBIAN/shlibs");
15 open (FIND, "find $TMP -xtype f -name '*.so.*' |");
18 # The second evil regexp is for db3, whose author should
20 if (m#.*/(.*)\.so\.(\d*)\.?# || m#.*/(.*)-(\S+)\.so$#) {
24 if (defined($dh{M_PARAMS}) && $dh{M_PARAMS} ne '') {
27 if (! -d "$TMP/DEBIAN") {
28 doit("install","-d","$TMP/DEBIAN");
31 if ($dh{V_FLAG_SET}) {
32 if ($dh{V_FLAG} ne '') {
36 # Call isnative becuase it sets $dh{VERSION}
39 $deps="$PACKAGE (>= $dh{VERSION})";
42 if (defined($library) && defined($major) && defined($deps) &&
43 $library ne '' && $major ne '' && $deps ne '') {
44 # Prevent duplicate lines from entering the file.
45 my $line="$library $major $deps";
48 complex_doit("echo '$line' >>$TMP/DEBIAN/shlibs");
54 if (-e "$TMP/DEBIAN/shlibs") {
55 doit("chmod",644,"$TMP/DEBIAN/shlibs");
56 doit("chown","0.0","$TMP/DEBIAN/shlibs");