diff options
| -rwxr-xr-x | imapurge.pl | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/imapurge.pl b/imapurge.pl index 3b657a5..6623ba8 100755 --- a/imapurge.pl +++ b/imapurge.pl @@ -9,6 +9,7 @@ use strict; my $confile = catfile ($HOME, '.imapurge.rc'); die "Can't read `" .$confile. "'\n" unless -f $confile; my %accounts = do $confile; +die "Error in `" .$confile. "'\n" if $@ || not %accounts; # Remotely delete mails that have been sent >90 days ago |