diff --git a/lib/IMAP/Utils.pm b/lib/IMAP/Utils.pm index ad3736b..6348f44 100644 --- a/lib/IMAP/Utils.pm +++ b/lib/IMAP/Utils.pm @@ -760,6 +760,13 @@ my $conn = shift; } +#here should be reconnect sub +sub resume { + Log("Fatal error, lost connection to either the source or destination"); + # Log("checkpoint $checkpoint"); + exit; +} + sub fetchMsg { my $msgnum = shift;