From bbc81477dea7d070a1240a11a355bb0f4cd6c59c Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Thu, 14 Dec 2017 15:08:00 -0800
Subject: [PATCH] extract subject before hashref

---
 bin/debbugs-spam | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/bin/debbugs-spam b/bin/debbugs-spam
index 76d99bb..4e5d353 100755
--- a/bin/debbugs-spam
+++ b/bin/debbugs-spam
@@ -250,10 +250,11 @@ sub spam_score_bug {
                    my ($bn,$rec,$mid) = @_;
                    my $score =
                        spam_score($rec,$spamc,$spamc_opts);
+                   my ($subject) = $rec->{text} =~ /^Subject: *(.+)$/mi;
                    push @records,
                       {message_id => $mid,
                        score => $score,
-                       subject => ($rec->{text} =~ /^Subject: *(.+)/i)[0],
+                       subject => $subject,
                       };
                },
                $bug
-- 
2.39.2