On Thu, 13 Dec 2012 13:33:15 -0900
Matthew Schumacher <[email protected]> wrote:
> Any reason why I wouldn't want to do this:
> sub delete_recipient ($) {
> my($recip) = @_;
> write_result_line("S", $recip);
> + @Recipients = grep { $_ ne $recip } @Recipients;
> return 1;
> }
Sure, but why not make your own wrapper:
sub my_delete_recipient {
my ($recip) = @_;
@Recipients = grep { $_ ne $recip } @Recipients;
return delete_recipient($recip);
}
I could put it directly in delete_recipient, but then people who don't
want @Recipients modified wouldn't have an easy way around that.
Regards,
David.
_______________________________________________
NOTE: If there is a disclaimer or other legal boilerplate in the above
message, it is NULL AND VOID. You may ignore it.
Visit http://www.mimedefang.org and http://www.roaringpenguin.com
MIMEDefang mailing list [email protected]
http://lists.roaringpenguin.com/mailman/listinfo/mimedefang
