- Only mail duplicated recipients once (closes: #172635)

[debbugs.git] / Debbugs / Mail.pm

diff --git a/Debbugs/Mail.pm b/Debbugs/Mail.pm
index 54e52f5dc6d852a7dc161932f449fcdc6adb9431..8ee984a373ec0dbc1d7e54e5eaea6d481f31bda0 100644 (file)
--- a/Debbugs/Mail.pm
+++ b/Debbugs/Mail.pm
@@ -135,6 +135,9 @@ sub send_mail_message{
      my @recipients;
      @recipients = @{$param{recipients}} if defined $param{recipients} and
          ref($param{recipients}) eq 'ARRAY';
+     my %recipients;
+     @recipients{@recipients} = (1) x @recipients;
+     @recipients = keys %recipients;
      # If there are no recipients, use -t to parse the message
      if (@recipients == 0) {
          $param{parse_for_recipients} = 1 unless exists $param{parse_for_recipients};