From a9a1ddbaf1cd7ca4e2c157d8379bd850b5560a93 Mon Sep 17 00:00:00 2001 From: Andrew Ruthven Date: Mon, 27 Jun 2022 21:37:04 +1200 Subject: [PATCH] Fix cC, and generally use Cc instead --- merge.pl | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/merge.pl b/merge.pl index b2f518b..75357cf 100755 --- a/merge.pl +++ b/merge.pl @@ -209,10 +209,10 @@ sub merge_message { die "Unable to find email_address" unless defined $email_address; if ($send) { - # If we're sending email, then send it, optionally with a BCC. + # If we're sending email, then send it, optionally with a BCc. print "Sending to $email_address" . - ($bcc ? "\n BCC " . (ref($bcc) eq 'ARRAY' ? join(", ", @{$bcc}) : $bcc) . " " : '') . - ($cc ? "\n cC " . (ref($cc) eq 'ARRAY' ? join(", ", @{$cc}) : $cc) . " " : '') . + ($bcc ? "\n BCc " . (ref($bcc) eq 'ARRAY' ? join(", ", @{$bcc}) : $bcc) . " " : '') . + ($cc ? "\n Cc " . (ref($cc) eq 'ARRAY' ? join(", ", @{$cc}) : $cc) . " " : '') . ($reply_to ? "\n Reply To $reply_to" : '') . "\n"; my @emails = ( $email_address ); @@ -287,8 +287,8 @@ sub merge_message { } else { # Say who we want to send to. print "Want to send to: $email_address" . - (defined $bcc ? "\n BCC " . (ref($bcc) eq 'ARRAY' ? join(", ", @{$bcc}) : $bcc) . " " : '') . - (defined $cc ? "\n CC " . (ref($cc) eq 'ARRAY' ? join(", ", @{$cc}) : $cc) . " " : '') . "\n"; + (defined $bcc ? "\n BCc " . (ref($bcc) eq 'ARRAY' ? join(", ", @{$bcc}) : $bcc) . " " : '') . + (defined $cc ? "\n Cc " . (ref($cc) eq 'ARRAY' ? join(", ", @{$cc}) : $cc) . " " : '') . "\n"; } } -- 2.30.2