Shush some warnings.

diff --git a/merge.pl b/merge.pl
index 2037e9863076559502c10b770ee778f41e414bd7..39844e3471785b106257ceac2dc647433aad909b 100755 (executable)
--- a/merge.pl
+++ b/merge.pl
@@ -73,7 +73,7 @@ while (my $cols = $csv->getline_hr($IN) ) {
   if ($verbose) {
     print "\n\nTemplate variables:\n";
     for my $key (sort keys %$cols) {
-      print "$key: $cols->{$key}\n";
+      print "$key: " . ($cols->{$key} || '') . "\n";
     }
     print "\n";
   }
@@ -119,8 +119,8 @@ while (my $cols = $csv->getline_hr($IN) ) {
   } else {
     # Say who we want to send to.
     print "Want to send to: $cols->{'email'}" .
-       ($bcc ? "\n  BCC " . (ref($bcc) eq 'ARRAY' ? join(", ", @{$bcc}) : $bcc) . " " : '') .
-       ($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";
   }
 }