On Sat, 15 Aug 2015 12:39:04 +0100 Dave Osbourne <d...@osbourne.uk.eu.org> wrote:
> I wonder if there is away to enforce a timeout on > md_check_against_smtp_server? The general-purpose way of enforcing timeouts is with alarm. { local $SIG{ALRM} = sub { die "Timeout"; }; my @result; eval { alarm(60); # Or whatever timeout you want @result = md_check_against_smtp_server(...); alarm(0); }; if ($@ && $@ =~ /Timeout/) { # Handle timeout } else { # Handle @result } } Regards, Dianne. _______________________________________________ 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 MIMEDefang@lists.roaringpenguin.com http://lists.roaringpenguin.com/mailman/listinfo/mimedefang