From fef332b16bf13793857bc5d884a831189bcdfad2 Mon Sep 17 00:00:00 2001
From: IKEDA Soji <ikeda@conversion.co.jp>
Date: Tue, 8 Sep 2020 11:50:40 +0900
Subject: [PATCH] ARC :: signer died because of a malformed
 "Authentication-Results:" header field (#988)

---
 src/lib/Sympa/Message.pm | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/src/lib/Sympa/Message.pm b/src/lib/Sympa/Message.pm
index 6e932a03c..689cbaad3 100644
--- a/src/lib/Sympa/Message.pm
+++ b/src/lib/Sympa/Message.pm
@@ -610,9 +610,8 @@ sub arc_seal {
     my $msg_as_string = $self->as_string;
     $msg_as_string =~ s/\r?\n/\r\n/g;
     $msg_as_string =~ s/\r?\z/\r\n/ unless $msg_as_string =~ /\n\z/;
-    $arc->PRINT($msg_as_string);
-    unless ($arc->CLOSE) {
-        $log->syslog('err', 'Cannot ARC seal message');
+    unless (eval { $arc->PRINT($msg_as_string) and $arc->CLOSE }) {
+        $log->syslog('err', 'Cannot ARC seal message: %s', $EVAL_ERROR);
         return undef;
     }
     $log->syslog('debug2', 'ARC %s: %s', $arc->{result},
@@ -729,9 +728,9 @@ sub check_arc_chain {
     my $msg_as_string = $self->as_string;
     $msg_as_string =~ s/\r?\n/\r\n/g;
     $msg_as_string =~ s/\r?\z/\r\n/ unless $msg_as_string =~ /\n\z/;
-    $arc->PRINT($msg_as_string);
-    unless ($arc->CLOSE) {
-        $log->syslog('err', 'Cannot verify chain of (ARC) message');
+    unless (eval { $arc->PRINT($msg_as_string) and $arc->CLOSE }) {
+        $log->syslog('err', 'Cannot verify chain of (ARC) message: %s',
+            $EVAL_ERROR);
         return;
     }