From: Frank Lichtenheld Date: Sat, 22 Sep 2007 16:36:11 +0000 (+0200) Subject: Merge branch 'master' into dpkg-shlibdeps-buxy X-Git-Url: https://err.no/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=85637101b5df1ce82c845f55949c7ba607763716;p=dpkg Merge branch 'master' into dpkg-shlibdeps-buxy Conflicts: scripts/dpkg-shlibdeps.pl --- 85637101b5df1ce82c845f55949c7ba607763716 diff --cc scripts/dpkg-shlibdeps.pl index a31bdc57,95795fd2..7fa7e990 --- a/scripts/dpkg-shlibdeps.pl +++ b/scripts/dpkg-shlibdeps.pl @@@ -3,32 -6,10 +3,25 @@@ use strict; use warnings; - our $progname; - our $version; - our $dpkglibdir; - my $admindir = "/var/lib/dpkg"; - - BEGIN { - $version="1.14.4"; # This line modified by Makefile - $dpkglibdir="."; # This line modified by Makefile - push(@INC,$dpkglibdir); - } - + use English; + use POSIX qw(:errno_h :signal_h); + use Dpkg; + use Dpkg::Gettext; +use Dpkg::Version qw(vercmp); +use Dpkg::Shlibs qw(find_library); +use Dpkg::Shlibs::Objdump; +use Dpkg::Shlibs::SymbolFile; + +our $host_arch= `dpkg-architecture -qDEB_HOST_ARCH`; +chomp $host_arch; + +# By increasing importance +my @depfields= qw(Suggests Recommends Depends Pre-Depends); +my $i=0; my %depstrength = map { $_ => $i++ } @depfields; + ++push(@INC, $dpkglibdir); +require 'controllib.pl'; - require 'dpkg-gettext.pl'; +textdomain("dpkg-dev"); my $shlibsoverride= '/etc/dpkg/shlibs.override'; my $shlibsdefault= '/etc/dpkg/shlibs.default';