From db5e575472230b597ceb8c1017ffcf0ad73ca539 Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Thu, 4 Feb 2010 23:38:18 -0800
Subject: [PATCH]  * fix extraneous semicolon

---
 Debbugs/Status.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/Debbugs/Status.pm b/Debbugs/Status.pm
index 5b6e9dc..8b4b9b0 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,
-- 
2.39.2