From: Guillem Jover <guillem@debian.org>
Date: Fri, 12 Oct 2007 21:30:15 +0000 (+0300)
Subject: dpkg-gensymbols: Use get_host_arch() instead of dpkg-architecture
X-Git-Url: https://err.no/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=327c3005d16eda2c530adb67ea4b4b9e605c0c7c;p=dpkg

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

diff --git a/ChangeLog b/ChangeLog
index 307e893f..34578302 100644
--- 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 ee51c801..27cb33a8 100755
--- 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;