X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=Debbugs%2FBug.pm;h=f78a24aec9f11dea100725516ce5454293b02236;hb=7673b6bab2e976f33a10ace94c5a50607b74ef93;hp=78bd5b73b62a6ea104b5eed8cc763af531487c32;hpb=bb1ededd5e5baa58f73f24f57b0dbe2fa7dcf3ee;p=debbugs.git

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 =