Fix cC, and generally use Cc instead

diff --git a/merge.pl b/merge.pl
index b2f518b84afc68aa5d1311e8c8084b071a8c724d..75357cf0cd962b7efb0150d5bf28db606b46d361 100755 (executable)
--- 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";
   }
 }