From: Frank Lichtenheld <djpig@debian.org>
Date: Wed, 18 Jan 2006 11:13:58 +0000 (+0000)
Subject: Let dpkg-gencontrol bail out with an error if parsedep
X-Git-Url: https://err.no/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c0d0233fb7a5a0cfde446ca3baf306f413444baa;p=dpkg

Let dpkg-gencontrol bail out with an error if parsedep
found an error while parsing a dependency field. Closes: #228125
---

diff --git a/ChangeLog b/ChangeLog
index 73c0c9e7..9099da28 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2005-08-27  Frank Lichtenheld  <djpig@debian.org>
+
+       * scripts/dpkg-gencontrol: Bail out with an error if parsedep
+       found an error while parsing a dependency field.
+
 2005-08-17  Scott James Remnant  <scott@netsplit.com>
 
 	* configure.ac: Bump version to 1.13.12~.
diff --git a/debian/changelog b/debian/changelog
index 7b122ae3..e42910e4 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,11 @@
+dpkg (1.13.12~) unstable; urgency=low
+
+  [Frank Lichtenheld]
+  * Let dpkg-gencontrol bail out with an error if parsedep
+    found an error while parsing a dependency field. Closes: #228125
+
+ --
+
 dpkg (1.13.11.1) unstable; urgency=low
 
   * Change maintainers to new team.
diff --git a/scripts/dpkg-gencontrol.pl b/scripts/dpkg-gencontrol.pl
index 97c4b036..e3debe49 100755
--- a/scripts/dpkg-gencontrol.pl
+++ b/scripts/dpkg-gencontrol.pl
@@ -182,7 +182,9 @@ for $_ (keys %fi) {
     } elsif (s/^C$myindex //) {
         if (m/^(Package|Description|Essential|Optional)$/) {
         } elsif (exists($pkg_dep_fields{$_})) {
-            $f{$_}= showdep(parsedep(substvars($v)), 0);
+           my $dep = parsedep(substvars($v));
+           &error("error occoured while parsing $_") unless defined $dep;
+            $f{$_}= showdep($dep, 0);
         } elsif (m/^Section$|^Priority$/) {
         } elsif (m/^Architecture$/) {
         } elsif (s/^X[CS]*B[CS]*-//i) {