build sources directly from the package collection

[debbugs.git] / Debbugs / Bug.pm

diff --git a/Debbugs/Bug.pm b/Debbugs/Bug.pm
index 78bd5b73b62a6ea104b5eed8cc763af531487c32..09c580d22a6adf77e8d4b20e6002823e0f576456 100644 (file)
--- a/Debbugs/Bug.pm
+++ b/Debbugs/Bug.pm
@@ -234,9 +234,7 @@ sub _build_affects {
 }
 sub _build_sources {
     my $self = shift;
-    local $_;
-    my @sources = map {$_->sources} $self->packages->members;
-    return @sources;
+    return $self->packages->sources->clone;
 }
 
 sub is_owned {
@@ -390,11 +388,16 @@ sub buggy {
     my $max_buggy = 'absent';
     for my $ver (@_) {
        if (not ref($ver)) {
-           $ver = Debbugs::Version->
-               new(version => $ver,
-                    package => $self,
-                   package_collection => $self->package_collection,
-                  );
+            my @ver_opts = (version => $ver,
+                            package => $self->status->package,
+                            package_collection => $self->package_collection,
+                            $self->schema_arg
+                           );
+            if ($ver =~ m{/}) {
+                $ver = Debbugs::Version::Source->(@ver_opts);
+            } else {
+                $ver = Debbugs::Version::Binary->(@ver_opts);
+            }
        }
        $vertree->load($ver->source);
        my $buggy =