Fix extraction of md5sum in dpkg-scanpackages.

diff --git a/ChangeLog b/ChangeLog
index 39451722e5f7dd062190e5c9e55cca0adca0acdd..fa7300a14bcd279059e6e54ae1ec5e2181ff9787 100644 (file)
--- a/ChangeLog
+++ b/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

diff --git a/debian/changelog b/debian/changelog
index ac3243fcd9e227e3e962103780fa329490b0633a..4a167e7f153cda4da2dff03f7ac6deccf048a7ca 100644 (file)
--- a/debian/changelog
+++ b/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
 

diff --git a/scripts/dpkg-scanpackages.pl b/scripts/dpkg-scanpackages.pl
index bc403ceb48249226b231cdcd7c4509e0ad46601b..50c859745835fe068f373028f762f8c50edcc59e 100755 (executable)
--- a/scripts/dpkg-scanpackages.pl
+++ b/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";