From 1b15f6a6858abb3413dc2df0c647690874f20b27 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Thu, 29 Dec 2016 15:52:34 +0000
Subject: tests for moderation cmdline

---
 lib/Sietima/Role/SubscriberOnly/Moderate.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib')

diff --git a/lib/Sietima/Role/SubscriberOnly/Moderate.pm b/lib/Sietima/Role/SubscriberOnly/Moderate.pm
index 678b66c..8bfef2f 100644
--- a/lib/Sietima/Role/SubscriberOnly/Moderate.pm
+++ b/lib/Sietima/Role/SubscriberOnly/Moderate.pm
@@ -52,7 +52,7 @@ sub show_mail_from_moderation_queue ($self,$runner,@) {
     my $id = $runner->parameters->{'mail-id'};
     my $mail = $self->mail_store->retrieve_by_id($id);
     $runner->out("Message $id:");
-    $runner->out($mail->as_string);
+    $runner->out($mail->as_string =~ s{\r\n}{\n}gr);
 }
 
 around command_line_spec => sub ($orig,$self) {
-- 
cgit v1.2.3