dpkg-shlibdeps.pl: use get_host_arch from Dpkg::Arch

diff --git a/scripts/dpkg-shlibdeps.pl b/scripts/dpkg-shlibdeps.pl
index ab1f9a2df7079373a64733e92eac13ec9ad1205d..3196a4ff35023922dd5e5bf36f4f8cb2527e0e0b 100755 (executable)
--- a/scripts/dpkg-shlibdeps.pl
+++ b/scripts/dpkg-shlibdeps.pl
@@ -13,9 +13,9 @@ use Dpkg::Version qw(vercmp);
 use Dpkg::Shlibs qw(find_library);
 use Dpkg::Shlibs::Objdump;
 use Dpkg::Shlibs::SymbolFile;
+use Dpkg::Arch qw(get_host_arch);
 
-our $host_arch= `dpkg-architecture -qDEB_HOST_ARCH`;
-chomp $host_arch;
+our $host_arch= get_host_arch();
 
 # By increasing importance
 my @depfields= qw(Suggests Recommends Depends Pre-Depends);