From 2d76f9e8cf76146e7b24ac4232918f584cfb8a16 Mon Sep 17 00:00:00 2001
From: joey <joey>
Date: Sat, 17 Nov 2001 21:01:33 +0000
Subject: r495:    * dh_undocumented: check for existing uncompressed man
 pages. Closes: #87972    * Optimized dh_installdeb conffile finding. Closes:
 #119035    * dh_installdeb: changed the #!/bin/sh -e to set -e on a new line.
 Whether      this additional bloat is worth it to make it easier for people
 to sh -x      a script by hand is debatable either way, I guess. Closes:
 #119046    * Added a check for duplicated package stanzas in debian/control, 
     Closes: #118805

---
 Debian/Debhelper/Dh_Lib.pm | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'Debian')

diff --git a/Debian/Debhelper/Dh_Lib.pm b/Debian/Debhelper/Dh_Lib.pm
index 4beaa0dc..fd3c12ec 100644
--- a/Debian/Debhelper/Dh_Lib.pm
+++ b/Debian/Debhelper/Dh_Lib.pm
@@ -412,6 +412,7 @@ sub GetPackages {
 	my $package="";
 	my $arch="";
 	my @list=();
+	my %seen;
 	open (CONTROL, 'debian/control') ||
 		error("cannot read debian/control: $!\n");
 	while (<CONTROL>) {
@@ -419,10 +420,18 @@ sub GetPackages {
 		s/\s+$//;
 		if (/^Package:\s*(.*)/) {
 			$package=$1;
+			# Detect duplicate package names in the same control file.
+			if (! $seen{$package}) {
+				$seen{$package}=1;
+			}
+			else {
+				error("debian/control has a duplicate entry for $package");
+			}
 		}
 		if (/^Architecture:\s*(.*)/) {
 			$arch=$1;
 		}
+		
 		if (!$_ or eof) { # end of stanza.
 			if ($package &&
 			    (($type eq 'indep' && $arch eq 'all') ||
-- 
cgit v1.2.3