strict had allowed list-deref of undef in replyCC()

briandfoy · Nov 19, 2024 · 46d44bf · 46d44bf
1 parent cb4e3ae
commit 46d44bf
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/bin/mail b/bin/mail
@@ -636,7 +636,6 @@ package main;
 use English;
 use File::Temp;
 use Getopt::Std;
-#use vars qw($VERSION $ROWS $BUFFERL $box);
 use vars qw($opt_f $opt_s $opt_c $opt_b $opt_v);
 
 our $VERSION = '0.04';
@@ -725,7 +724,7 @@ sub replyCC {
 		}
 		push @replies, $original->get_from;
 		$tc = $original->get_cc;
-		push(@ccaddrs, @$tc);
+		push(@ccaddrs, @$tc) if $tc;
 	}
 
 	my $msg=message->new;