From d21c253d6eea9adb44ac3e32098a54c572d0fc5e Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Sun, 30 Jun 2019 15:56:19 -0700
Subject: [PATCH] use status->package/found/fixed instead of custom code in
 D::Bug

---
 Debbugs/Bug.pm | 16 ++++------------
 1 file changed, 4 insertions(+), 12 deletions(-)

diff --git a/Debbugs/Bug.pm b/Debbugs/Bug.pm
index 09c580d..21a26e3 100644
--- a/Debbugs/Bug.pm
+++ b/Debbugs/Bug.pm
@@ -367,7 +367,7 @@ sub _build_pending {
     return $pending;
 }
 
-=item buggy
+=head2 buggy
 
      $bug->buggy('debbugs/2.6.0-1','debbugs/2.6.0-2');
      $bug->buggy(Debbugs::Version->new('debbugs/2.6.0-1'),
@@ -637,17 +637,9 @@ sub version_url {
 
 sub related_packages_and_versions {
     my $self = shift;
-    my @packages;
-    if (length($self->status->{package}//'')) {
-	@packages = split /,/,$self->status->{package}//'';
-    }
-    if (length($self->status->{affects}//'')) {
-	push @packages,
-            split /,/,$self->status->{affects}//'';
-    }
-    my @versions =
-        (@{$self->status->{found_versions}//[]},
-         @{$self->status->{fixed_versions}//[]});
+    my @packages = $self->status->package;
+    my @versions = ($self->status->found,
+                    $self->status->fixed);
     my @unqualified_versions;
     my @return;
     for my $ver (@versions) {
-- 
2.39.2