Refer to host instead of build architecture and quote it in error string

diff --git a/ChangeLog b/ChangeLog
index 028e2b6716c72e28ece2805065b7696266d09ef2..bc6ce87f87400ed684b0eff6defb67f5b4d97010 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2007-10-08  Guillem Jover  <guillem@debian.org>
+
+       * scripts/dpkg-gencontrol.pl: Refer to host architecture (instead of
+       build) in error string, and quote architecture name.
+
 2007-10-08  Frank Lichtenheld  <djpig@debian.org>,
             Guillem Jover  <guillem@debian.org>
 

diff --git a/scripts/dpkg-gencontrol.pl b/scripts/dpkg-gencontrol.pl
index 6f9ead54626a13b907c04d2ae087b5c3d501e6a7..140c3cc7bea92eba405fda6e607a5bc82a3a2892 100755 (executable)
--- a/scripts/dpkg-gencontrol.pl
+++ b/scripts/dpkg-gencontrol.pl
@@ -183,8 +183,9 @@ for $_ (keys %fi) {
                              join("' `", @invalid_archs)))
                    if @invalid_archs >= 1;
                grep(debarch_is($host_arch, $_), @archlist) ||
-                    &error(sprintf(_g("current build architecture %s does not".
-                                      " appear in package's list (%s)"),
+                   error(sprintf(_g("current host architecture '%s' does " .
+                                    "not appear in package's architecture " .
+                                    "list (%s)"),
                                   $host_arch, "@archlist"));
                $f{$_} = $host_arch;
             }