Do I need this? I'm getting six to nine dupes to the
same recipient from a worm, and even though I
can deny that worm at rcpt, I'd like to fix the hole,
wherever it is, that is allowing duplicate recipients
for one message.

sub _uniq {
my %u = () ; for ( @_ ) { $_ and $u{$_} = 1 } ; keys %u if ref \%u ;
}

Fits into such--

for ( &_uniq ( $transaction->recipients ) ) { # queue ops


Reply via email to