It's always a source version if the package is a source package

diff --git a/Debbugs/Collection/Version.pm b/Debbugs/Collection/Version.pm
index 5f7c41f5585b9e86b47f0e6c2cef9ef45612149b..f461afe3f99fc48f23817185bf226d74a4f4cb63 100644 (file)
--- a/Debbugs/Collection/Version.pm
+++ b/Debbugs/Collection/Version.pm
@@ -89,12 +89,11 @@ sub _member_constructor {
     for my $pkg_ver_arch (make_list($args{versions})) {
         my ($pkg,$ver,$arch) = $pkg_ver_arch =~ m{^([^/]+)/([^/]+)/?([^/]*)$} or
             confess("Invalid version key: $pkg_ver_arch");
+        if ($pkg =~ s/^src://) {
+            $arch = 'source';
+        }
         if (not length $arch) {
-            if ($pkg =~ /^src:/) {
-                $arch = 'source';
-            } else {
-               $arch = 'any';
-            }
+            $arch = 'any';
         }
         if ($arch eq 'source') {
             push @return,