From 84193233d10a834a988ee3479a4305fed44b1064 Mon Sep 17 00:00:00 2001
From: cjwatson <>
Date: Mon, 18 Jul 2005 01:47:34 -0800
Subject: [PATCH] [project @ 2005-07-18 02:47:34 by cjwatson] strip off various
 kinds of brain-damage when adding found/fixed versions

---
 scripts/errorlib.in | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

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}}) {
-- 
2.39.5