From 93143f534ff971c8702c3f95a04a3f8e89d19cd5 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?John=20Ankarstr=C3=B6m?= <john@ankarstrom.se>
Date: Mon, 10 May 2021 14:56:47 +0200
Subject: p5p: Fix empty subject

---
 run/p5p | 1 +
 1 file changed, 1 insertion(+)

(limited to 'run/p5p')

diff --git a/run/p5p b/run/p5p
index 7c3d38c..d0323a1 100755
--- a/run/p5p
+++ b/run/p5p
@@ -31,6 +31,7 @@ for my $alt (@alt) {
 	for ((reverse sort keys %d)[0..4]) {
 		$_ = encode_entities($_) for ($d{$_}, $f{$_}, $s{_});
 		$f{$_} =~ s,@[^.]*\.,@<i>hidden</i>.,;
+		$s{$_} = '(no subject)' if not exists $s{$_};
 		my $n = $_ + $alt->{offset};
 		my $u = "https://www.nntp.perl.org/group/perl.perl5.porters/0/0/msg$n.html";
 		print <<HTML;
-- 
cgit v1.2.3