--- dpkg-scanpackages.orig	Thu Nov 23 19:55:38 2000
+++ dpkg-scanpackages	Thu Nov 23 19:01:57 2000
@@ -77,10 +77,15 @@
     $p= $tv{'Package'}; delete $tv{'Package'};
 
     if (defined($p1{$p})) {
-        print(STDERR " ! Package $p (filename $fn) is repeat;\n".
-                     "   ignored that one and using data from $pfilename{$p} !\n")
-            || die $!;
-        next;
+        print(STDERR " ! Package $p (filename $fn) is repeat;\n")
+	    || die $!;
+	if ($fn ge $pfilename{$p}) {
+	    print(STDERR "   $fn is newer, thus using that\n");
+	} else {
+	    print(STDERR "   ignored that one and using data from $pfilename{$p} !\n")
+		|| die $!;
+	    next;
+	}
     }
     print(STDERR " ! Package $p (filename $fn) has Filename field!\n") || die $!
         if defined($tv{'Filename'});