From: Don Armstrong <don@donarmstrong.com>
Date: Fri, 5 Feb 2010 07:38:18 +0000 (-0800)
Subject:  * fix extraneous semicolon
X-Git-Tag: release/2.6.0~428^2~1
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=db5e575472230b597ceb8c1017ffcf0ad73ca539;p=debbugs.git

 * fix extraneous semicolon
---

diff --git a/Debbugs/Status.pm b/Debbugs/Status.pm
index 5b6e9dcf..8b4b9b04 100644
--- a/Debbugs/Status.pm
+++ b/Debbugs/Status.pm
@@ -619,7 +619,7 @@ The following functions are exported with the :versions tag
 
      addfoundversions($status,$package,$version,$isbinary);
 
-
+All use of this should be phased out in favor of Debbugs::Control::fixed/found
 
 =cut
 
@@ -632,6 +632,10 @@ sub addfoundversions {
     return unless defined $version;
     undef $package if $package =~ m[(?:\s|/)];
     my $source = $package;
+    if ($package =~ s/^src://) {
+	$isbinary = 0;
+	$source = $package;
+    }
 
     if (defined $package and $isbinary) {
         my @srcinfo = binary_to_source(binary => $package,