Fix extraction of md5sum in dpkg-scanpackages.

ChangeLog

@@ -1,3 +1,8 @@
+Thu Aug 22 23:06:39 CDT 2002 Adam Heath <doogie@debian.org>
+
+  * scripts/dpkg-scanpackages.pl: Fix extraction of md5sum in
+    dpkg-scanpackages.
+
 Thu Aug 22 23:01:53 CDT 2002 Adam Heath <doogie@debian.org>
 
   * utils/md5sum.c: Fix segfault in md5sum if the file being checked

debian/changelog

@@ -2,6 +2,7 @@ dpkg (1.10.5) unstable; urgency=low
 
   * Fix segfault in md5sum if the file being checked doesn't exist.
     Closes: #154503.
+  * Fix extraction of md5sum in dpkg-scanpackages.  Closes: #153769.
 
  -- Adam Heath <doogie@debian.org>  UNRELEASED
 

scripts/dpkg-scanpackages.pl

@@ -104,7 +104,7 @@ while (<F>) {
 
     open(C,"md5sum <$fn |") || die "$fn $!";
     chop($_=<C>); close(C); $? and die "\`md5sum < $fn' exited with $?\n";
-    /^[0-9a-f]{32}\s*-?\s*$/ or die "Strange text from \`md5sum < $fn': \`$_'\n";
+    /^([0-9a-f]{32})\s*-?\s*$/ or die "Strange text from \`md5sum < $fn': \`$_'\n";
     $tv{'MD5sum'}= $1;
 
     @stat= stat($fn) or die "Couldn't stat $fn: $!\n";