X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=Debbugs%2FCollection%2FVersion.pm;h=f461afe3f99fc48f23817185bf226d74a4f4cb63;hb=a9068def673ffce9ae2c96eeb3961f6e5e5f473b;hp=5f7c41f5585b9e86b47f0e6c2cef9ef45612149b;hpb=288859ac0b478e3083882638f985c3b006035b1d;p=debbugs.git

diff --git a/Debbugs/Collection/Version.pm b/Debbugs/Collection/Version.pm
index 5f7c41f..f461afe 100644
--- 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,