From 42c28285247c74238b364b82ef875fa83e0ab9a8 Mon Sep 17 00:00:00 2001 From: short <> Date: Mon, 7 Oct 2002 21:28:47 +0000 Subject: [PATCH 1/1] unique recipient list - to prevent dupes being normally filtered by sendmail(8) --- perlmail-sendmail | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/perlmail-sendmail b/perlmail-sendmail index 4831db2..3cf3f3f 100755 --- a/perlmail-sendmail +++ b/perlmail-sendmail @@ -231,7 +231,11 @@ my $from_headername; } my $exitcode=0; -my @rcpts=(@addr ? @addr : (undef())); # !defined($rcpt) if we have no recipients +# !defined($rcpt) if we have no recipients +# make the list unique to prevent dupes being normally filtered by sendmail(8) +# one '{' is block-wrapper, another '{' is hash-indirection! +my @rcpts=keys(%{{ map(($_=>1),(@addr ? @addr : (undef()))) }}); + my $stdin_body=(@rcpts<=1 ? undef() : do { # store input data only if it will be used multiple times local $/=undef(); ; -- 1.8.3.1