dpkg (1.2.7); priority=LOW

  * dpkg-scanpackages syntax errors fixed.

 -- Ian Jackson <ian@chiark.chu.cam.ac.uk>  Fri, 21 Jun 1996 04:10:38 +0100

debian.Changelog

@@ -1,3 +1,9 @@
+dpkg (1.2.7); priority=LOW
+
+  * dpkg-scanpackages syntax errors fixed.
+
+ -- Ian Jackson <ian@chiark.chu.cam.ac.uk>  Fri, 21 Jun 1996 04:10:38 +0100
+
 dpkg (1.2.6); priority=MEDIUM
 
   * NFS, CDROM and partition dselect methods include mountpoint

debian.rules

@@ -1,7 +1,7 @@
 #!/usr/bin/make -f
 
 package=dpkg
-version=1.2.6
+version=1.2.7
 
 archi=$(shell dpkg --print-architecture)
 DIR:=$(shell pwd)

scripts/dpkg-scanpackages.pl

@@ -73,7 +73,7 @@ while (<F>) {
         print(STDERR " ! Package $p (filename $fn) is repeat;\n".
                      "   ignored that one and using data from $pfilename{$p}) !\n")
             || die $!;
-        continue;
+        next;
     }
     if (defined($tv{'filename'})) {
         print(STDERR " ! Package $p (filename $fn) has Filename field !\n") || die $!;
@@ -128,7 +128,7 @@ while(<O>) {
     if (length($maintainer)) {
         if ($maintainer =~ m/\s*=\>\s*/) {
             $oldmaint= $`; $newmaint= $'; $debmaint= $pv{$p,'maintainer'};
-            if (!grep($debmaint eq $_, split(m,\s*//\s*, $oldmaint))) {
+            if (!grep($debmaint eq $_, split(m:\s*//\s*:, $oldmaint))) {
                 push(@changedmaint,
                      "  $p (package says $pv{$p,'maintainer'}, not $oldmaint)\n");
             } else {