dpkg-gensymbols: Use get_host_arch() instead of dpkg-architecture

diff --git a/ChangeLog b/ChangeLog
index 307e893fac54e65204a8badc3fbbcbca6a12fa18..3457830203a4efe72f3013f2ceb16997f8376c79 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2007-10-13  Guillem Jover  <guillem@debian.org>
+
+       * scripts/dpkg-gensymbols.pl: Use new Dpkg::Arch module.
+       ($host_arch): Initialize with get_host_arch instead of direct call to
+       'dpkg-architecture'.
+
 2007-10-12  Guillem Jover  <guillem@debian.org>
 
        * scripts/controllib.pl ($host_arch, get_host_arch, get_valid_arches)

diff --git a/scripts/dpkg-gensymbols.pl b/scripts/dpkg-gensymbols.pl
index ee51c801aa5800d82c41222ddb13d50dec95dcbf..27cb33a85803f35e19305411f6d378d7d8b22f86 100755 (executable)
--- a/scripts/dpkg-gensymbols.pl
+++ b/scripts/dpkg-gensymbols.pl
@@ -4,6 +4,7 @@ use strict;
 use warnings;
 
 use Dpkg;
+use Dpkg::Arch qw(get_host_arch);
 use Dpkg::Shlibs qw(@librarypaths);
 use Dpkg::Shlibs::Objdump;
 use Dpkg::Shlibs::SymbolFile;
@@ -19,9 +20,6 @@ our (%f, %fi);
 our %p2i;
 our @librarypaths;
 
-our $host_arch= `dpkg-architecture -qDEB_HOST_ARCH`;
-chomp $host_arch;
-
 my $controlfile = 'debian/control';
 my $changelogfile = 'debian/changelog';
 my $packagebuilddir = 'debian/tmp';
@@ -32,6 +30,7 @@ my $oppackage;
 my $compare = 1; # Bail on missing symbols by default
 my $output;
 my $debug = 0;
+my $host_arch = get_host_arch();
 
 sub version {
     printf _g("Debian %s version %s.\n"), $progname, $version;