From: Don Armstrong <don@donarmstrong.com>
Date: Sun, 30 Jun 2019 16:57:45 +0000 (-0700)
Subject: automatically switch between creating source and binary Debbugs::Versions
X-Git-Url: https://git.donarmstrong.com/?p=debbugs.git;a=commitdiff_plain;h=7673b6bab2e976f33a10ace94c5a50607b74ef93

automatically switch between creating source and binary Debbugs::Versions
---

diff --git a/Debbugs/Bug.pm b/Debbugs/Bug.pm
index 78bd5b7..f78a24a 100644
--- a/Debbugs/Bug.pm
+++ b/Debbugs/Bug.pm
@@ -390,11 +390,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 =