From 664f108672319aaeaddc3c37dad8227dfa4ef66d Mon Sep 17 00:00:00 2001
From: Graham Knop <haarg@haarg.org>
Date: Wed, 30 Oct 2024 01:29:31 +0100
Subject: [PATCH] tickets script: don't try to add dist data that doesn't exist

---
 lib/MetaCPAN/Script/Tickets.pm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lib/MetaCPAN/Script/Tickets.pm b/lib/MetaCPAN/Script/Tickets.pm
index 60a5a357b..25dd88709 100644
--- a/lib/MetaCPAN/Script/Tickets.pm
+++ b/lib/MetaCPAN/Script/Tickets.pm
@@ -248,6 +248,8 @@ sub parse_tsv {
 
     my %summary;
     while ( my $row = $tsv_parser->getline_hr($fh) ) {
+        next
+            if !$row->{dist};
         $summary{ $row->{dist} }{'bugs'}{'rt'} = {
             source => $self->rt_dist_url( $row->{dist} ),
             active => $row->{active},