From: cjwatson <>
Date: Mon, 18 Jul 2005 09:47:34 +0000 (-0800)
Subject: [project @ 2005-07-18 02:47:34 by cjwatson]
X-Git-Tag: release/2.6.0~700
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=84193233d10a834a988ee3479a4305fed44b1064;p=debbugs.git

[project @ 2005-07-18 02:47:34 by cjwatson]
strip off various kinds of brain-damage when adding found/fixed versions
---

diff --git a/scripts/errorlib.in b/scripts/errorlib.in
index 0afa8a3f..15f6610b 100755
--- a/scripts/errorlib.in
+++ b/scripts/errorlib.in
@@ -1,5 +1,5 @@
 # -*- perl -*-
-# $Id: errorlib.in,v 1.44 2005/07/17 18:04:01 cjwatson Exp $
+# $Id: errorlib.in,v 1.45 2005/07/18 02:47:34 cjwatson Exp $
 
 use Mail::Address;
 use Debbugs::MIME qw(decode_rfc1522 encode_rfc1522);
@@ -268,6 +268,11 @@ sub addfoundversions {
     return unless defined $version;
     undef $source if $source =~ m[(?:\s|/)];
 
+    # Strip off various kinds of brain-damage.
+    $version =~ s/;.*//;
+    $version =~ s/ *\(.*\)//;
+    $version =~ s/ *[A-Za-z].*//;
+
     foreach my $ver (split /[,\s]+/, $version) {
         $ver = "$source/$ver" if defined $source;
         unless (grep { $_ eq $ver } @{$data->{found_versions}}) {
@@ -299,6 +304,11 @@ sub addfixedversions {
     return unless defined $version;
     undef $source if $source =~ m[(?:\s|/)];
 
+    # Strip off various kinds of brain-damage.
+    $version =~ s/;.*//;
+    $version =~ s/ *\(.*\)//;
+    $version =~ s/ *[A-Za-z].*//;
+
     foreach my $ver (split /[,\s]+/, $version) {
         $ver = "$source/$ver" if defined $source;
         unless (grep { $_ eq $ver } @{$data->{fixed_versions}}) {