From: Andrew Ruthven <puck@catalystcloud.nz>
Date: Mon, 27 Jun 2022 09:37:04 +0000 (+1200)
Subject: Fix cC, and generally use Cc instead
X-Git-Url: http://git.etc.gen.nz/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=a9a1ddbaf1cd7ca4e2c157d8379bd850b5560a93;p=mail-merge.git

Fix cC, and generally use Cc instead
---

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";
   }
 }