Received: (at submit) by bugs.debian.org; 17 May 1997 17:51:38 +0000
Received: (qmail 23707 invoked from network); 17 May 1997 17:51:37 -0000
Received: from icm.saechsisches-elbland.de (root@194.123.25.129)
  by master.debian.org with SMTP; 17 May 1997 17:51:36 -0000
Received: from eremit.lotte.sax.de ([194.123.25.146]) by icm.saechsisches-elbland.de
	 with esmtp (ident root using rfc1413) id m0wSnMn-00001CC
	(Debian Smail-3.2 1996-Jul-4 #2); Sat, 17 May 1997 19:34:01 +0200 (MET DST)
Received: by eremit.lotte.sax.de
	id m0wSn0N-0017ncC
	(Debian Smail-3.2 1996-Jul-4 #2); Sat, 17 May 1997 19:10:51 +0200 (CEST)
Message-Id: <m0wSn0N-0017ncC@eremit.lotte.sax.de>
Date: Sat, 17 May 1997 19:10:51 +0200 (CEST)
From: Heiko Schlittermann <heiko@lotte.sax.de>
Subject: dpkg: dpkg-genchanges has wrong assumptions
To: submit@bugs.debian.org
Bcc:
X-Mailer: bug 2.93

Package: dpkg
Version: 1.4.0.8

Hi Klee,

my debian/files (fileslistfile) contains about the following lines:

xforms0.81_0.81-8_i386.deb contrib optional
xforms0.81_0.81-8_m68k.deb contrib optional
xforms0.81_0.81-8_alpha.deb contrib optional
xforms-dev_0.81-8_i386.deb contrib optional
xforms-dev_0.81-8_m68k.deb contrib optional
xforms-dev_0.81-8_alpha.deb contrib optional

No duplicates, but dpkg-genchanges only tests for existence of
the package names and marks 'em as duplicates.  No harm is done,
but it doesn't look very nice, if you'd get a bunch of warnings every dpkg-genchanges run ...

I'll include a fix:
diff -u /usr/bin/dpkg-genchanges /tmp/dpkg-genchanges
--- /usr/bin/dpkg-genchanges	Mon Feb  3 19:54:54 1997
+++ /tmp/dpkg-genchanges	Sat May 17 19:10:38 1997
@@ -97,8 +97,9 @@
 open(FL,"< $fileslistfile") || &syserr("cannot read files list file");
 while(<FL>) {
     if (m/^(([-+.0-9a-z]+)_([^_]+)_(\w+)\.deb) (\S+) (\S+)$/) {
-        defined($p2f{$2}) &&
+        defined($p2f{"$2 $4"}) &&
             &warn("duplicate files list entry for package $2 (line $.)");
+        $p2f{"$2 $4"}= $1;
         $p2f{$2}= $1;
         $p2ver{$2}= $3;
         defined($f2sec{$1}) &&
@@ -179,8 +180,9 @@
 }
 
 for $p (keys %p2f) {
-    defined($p2i{"C $p"}) ||
-        &warn("package $p listed in files list but not in control info");
+    my ($pp, $aa) = (split / /, $p);
+    defined($p2i{"C $pp"}) ||
+        &warn("package $pp listed in files list but not in control info");
 }
 
 for $p (keys %p2f) {


-- System Information
Debian Release: 1.3
Kernel Version: Linux eremit 2.0.29 #3 Tue Apr 8 22:33:11 CEST 1997 i586 unknown

Versions of the packages dpkg depends on:
libc5	Version: 5.4.23-3
ncurses3.0	Version: 1.9.9e-1