p5p: Fix empty subject

1 files changed, 1 insertions, 0 deletions

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;