From: Don Armstrong <don@donarmstrong.com>
Date: Tue, 4 Dec 2012 00:18:42 +0000 (-0800)
Subject: Fix set_found bug which cleared partially matching versions; thanks to Andreas Beckma... 
X-Git-Tag: release/2.6.0~323
X-Git-Url: https://git.donarmstrong.com/?p=debbugs.git;a=commitdiff_plain;h=c89a96b3d745f9ae157da11f8c86f45883fbeb5d

Fix set_found bug which cleared partially matching versions; thanks to Andreas Beckmann for noticing this.
---

diff --git a/Debbugs/Control.pm b/Debbugs/Control.pm
index 39e6648..33db881 100644
--- a/Debbugs/Control.pm
+++ b/Debbugs/Control.pm
@@ -1591,7 +1591,7 @@ sub set_found {
 		    }
 		    # if the found we are adding matches any fixed
 		    # versions, remove them
-		    my @temp = grep m{(^|/)\Q$sver\E}, keys %fixed_versions;
+		    my @temp = grep m{(^|/)\Q$sver\E$}, keys %fixed_versions;
 		    delete $fixed_versions{$_} for @temp;
 		    $fixed_removed{$_} = 1 for @temp;
 		}
@@ -1615,7 +1615,7 @@ sub set_found {
 		# in the case of removal, we only concern ourself with
 		# the version passed, not the source version it maps
 		# to
-		my @temp = grep m{(^|/)\Q$version\E}, keys %found_versions;
+		my @temp = grep m{(?:^|/)\Q$version\E$}, keys %found_versions;
 		delete $found_versions{$_} for @temp;
 		$found_removed{$_} = 1 for @temp;
 	    }