summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-ximapurge.pl1
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