[project @ 2003-08-23 15:33:42 by cjwatson]

Tolerate things like "Format-Version: 2.1", from the incipient spec on
handling upgrades.

diff --git a/scripts/errorlib.in b/scripts/errorlib.in
index c8052c52f41f422a94aff47461f77887cf22234e..5e7b1a25c928adcf5dd8d67ca36c7c4c5085e5a4 100755 (executable)
--- a/scripts/errorlib.in
+++ b/scripts/errorlib.in
@@ -1,5 +1,5 @@
 # -*- perl -*-
-# $Id: errorlib.in,v 1.38 2003/08/23 15:12:57 cjwatson Exp $
+# $Id: errorlib.in,v 1.39 2003/08/23 15:33:42 cjwatson Exp $
 
 use Mail::Address;
 
@@ -99,7 +99,7 @@ sub readbug {
     while (<S>) {
         chomp;
         push @lines, $_;
-        $version = $1 if /^Format-Version: (.*)/i;
+        $version = $1 if /^Format-Version: ([0-9]+)/i;
     }
 
     # Version 2 is the latest format version currently supported.