dh_shlibdeps

   1 #!/usr/bin/perl -w
   2 #
   3 # Find dependancies. Simple dpkg-shlibdeps wrapper.
   4
   5 use strict;
   6 use Cwd;
   7 use Debian::Debhelper::Dh_Lib;
   8 init();
   9
  10 foreach my $package (@{$dh{DOPACKAGES}}) {
  11         my $tmp=tmpdir($package);
  12         my $ext=pkgext($package);
  13
  14         my @filelist;
  15         my $ff;
  16
  17         # Generate a list of ELF binaries in the package, ignoring any
  18         # we were told to exclude.
  19         my $find_options='';
  20         if (defined($dh{EXCLUDE_FIND}) && $dh{EXCLUDE_FIND} ne '') {
  21                 $find_options="! \\( $dh{EXCLUDE_FIND} \\)";
  22         }
  23         foreach my $file (split(/\n/,`find $tmp -type f \\( -perm +111 -or -name "*.so*" \\) $find_options`)) {
  24                 # TODO: this is slow, optimize. Ie, file can run once on multiple files..
  25                 $ff=`file "$file"`;
  26                 if ($ff=~m/ELF/ && $ff!~/statically linked/) {
  27                         push @filelist,$file;
  28                 }
  29         }
  30
  31         if (@filelist) {
  32                 if ($dh{L_PARAMS}) {
  33                         # Force the path absolute.
  34                         unless ($dh{L_PARAMS}=~m:^/:) {
  35                                 $dh{L_PARAMS}=getcwd()."/$dh{L_PARAMS}";
  36                         }
  37                         $ENV{'LD_LIBRARY_PATH'}=$dh{L_PARAMS};
  38                         verbose_print("LD_LIBRARY_PATH=$dh{L_PARAMS} \\");
  39                 }
  40                 doit("dpkg-shlibdeps","-Tdebian/${ext}substvars",@{$dh{U_PARAMS}},'-dDepends',@filelist);
  41         }
  42 }