dh_shlibdeps

   1 #!/usr/bin/perl -w
   2 #
   3 # Find dependancies. Simple dpkg-shlibdeps wrapper.
   4
   5 BEGIN { push @INC, "debian", "/usr/share/debhelper" }
   6 use Dh_Lib;
   7 init();
   8
   9 foreach $PACKAGE (@{$dh{DOPACKAGES}}) {
  10         $TMP=tmpdir($PACKAGE);
  11         $EXT=pkgext($PACKAGE);
  12
  13         my @filelist;
  14         my $ff;
  15
  16         # Generate a list of all ELF binaries in the package.
  17         foreach $file (split(/\n/,`find $TMP -type f \\( -perm +111 -or -name "*.so*" \\)`)) {
  18                 # TODO: this is slow, optimize. Ie, file can run once on multiple files..
  19                 $ff=`file "$file"`;
  20                 if ($ff=~m/ELF/ && $ff!~/statically linked/) {
  21                         push @filelist,$file;
  22                 }
  23         }
  24
  25         if (@filelist) {
  26                 doit("dpkg-shlibdeps","-Tdebian/$EXT\substvars",@{$dh{U_PARAMS}},@filelist);
  27         }
  28 }