From: cjwatson <>
Date: Sat, 23 Aug 2003 22:33:42 +0000 (-0800)
Subject: [project @ 2003-08-23 15:33:42 by cjwatson]
X-Git-Tag: release/2.6.0~808
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=1339cea95c9db00dd72f2ac3ea7af7cfbd311dc7;p=debbugs.git

[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 c8052c52..5e7b1a25 100755
--- 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.