From c89a96b3d745f9ae157da11f8c86f45883fbeb5d Mon Sep 17 00:00:00 2001 From: Don Armstrong Date: Mon, 3 Dec 2012 16:18:42 -0800 Subject: [PATCH] Fix set_found bug which cleared partially matching versions; thanks to Andreas Beckmann for noticing this. --- Debbugs/Control.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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; } -- 2.39.2