[project @ 2005-07-18 03:09:09 by cjwatson]

fix version stripping regex

diff --git a/migrate/debbugs-makeversions b/migrate/debbugs-makeversions
index 4e067d62c24577a80b9b5a6e0b9e1aff1866f043..fd70f2dcfb6262a3f810effa1334555bc0a41fb1 100755 (executable)
--- a/migrate/debbugs-makeversions
+++ b/migrate/debbugs-makeversions
@@ -81,7 +81,7 @@ sub getbuginfo ($)
                $fv =~ s/;.*//;
                $fv =~ s/ *\(.*\)//;
                # Strip off other random junk at the end of a version.
-               $fv =~ s/ *[A-Za-z].*//;
+               $fv =~ s/ +[A-Za-z].*//;
                $ver = $fv;
            }
        }

diff --git a/scripts/errorlib.in b/scripts/errorlib.in
index 15f6610bf98990937cd885b2b1cd94ee440bdcc4..746e832ad2aa16da2eab693efc9f1ba3a95ed588 100755 (executable)
--- a/scripts/errorlib.in
+++ b/scripts/errorlib.in
@@ -1,5 +1,5 @@
 # -*- perl -*-
-# $Id: errorlib.in,v 1.45 2005/07/18 02:47:34 cjwatson Exp $
+# $Id: errorlib.in,v 1.46 2005/07/18 03:09:09 cjwatson Exp $
 
 use Mail::Address;
 use Debbugs::MIME qw(decode_rfc1522 encode_rfc1522);
@@ -271,7 +271,7 @@ sub addfoundversions {
     # Strip off various kinds of brain-damage.
     $version =~ s/;.*//;
     $version =~ s/ *\(.*\)//;
-    $version =~ s/ *[A-Za-z].*//;
+    $version =~ s/ +[A-Za-z].*//;
 
     foreach my $ver (split /[,\s]+/, $version) {
         $ver = "$source/$ver" if defined $source;
@@ -307,7 +307,7 @@ sub addfixedversions {
     # Strip off various kinds of brain-damage.
     $version =~ s/;.*//;
     $version =~ s/ *\(.*\)//;
-    $version =~ s/ *[A-Za-z].*//;
+    $version =~ s/ +[A-Za-z].*//;
 
     foreach my $ver (split /[,\s]+/, $version) {
         $ver = "$source/$ver" if defined $source;