extract subject before hashref

[debbugs.git] / bin / debbugs-spam

diff --git a/bin/debbugs-spam b/bin/debbugs-spam
index 76d99bbf58a9a963e65fbe57d0a83103db47a04d..4e5d3538ba6ae8b76cc991a1c98bace45e000187 100755 (executable)
--- 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