From a208738704c21937ad68e0a150a3d45680a78535 Mon Sep 17 00:00:00 2001
From: azumakuniyuki <azumakuniyuki@gmail.com>
Date: Thu, 19 Dec 2024 23:06:48 +0900
Subject: [PATCH] No need to convert "-" to "/" at ISO8601 date format

---
 lib/Sisimai/Lhost/AmazonSES.pm | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/lib/Sisimai/Lhost/AmazonSES.pm b/lib/Sisimai/Lhost/AmazonSES.pm
index 848966ed..4b54a73c 100644
--- a/lib/Sisimai/Lhost/AmazonSES.pm
+++ b/lib/Sisimai/Lhost/AmazonSES.pm
@@ -199,10 +199,8 @@ sub inquire {
     }
     return undef unless $recipients;
 
-    for my $e ( @$dscontents ) {
-        # Time::Piece->strptime() cannot parse "2016-11-25T01:49:01.000Z" format
-        s|-|/|g, s/T/ /, s/[.]\d{3}Z$// for $e->{'date'};
-    }
+    # Time::Piece->strptime() cannot parse "2016-11-25T01:49:01.000Z" format
+    for my $e ( @$dscontents ) { s/T/ /, s/[.]\d{3}Z$// for $e->{'date'} }
 
     # Generate pseudo email headers as the original message
     my $cv = "";