summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGuilhem Moulin <guilhem.moulin@ens-lyon.org>2011-10-25 22:21:12 +0200
committerGuilhem Moulin <guilhem.moulin@ens-lyon.org>2011-10-25 22:21:12 +0200
commit4933a6fdc940b1f7b74b3bb16f0e52b169c6865c (patch)
tree8db6c2e6dc643cadea72ef444e00a4141fb938f6
parentdc82b3f724d9613ef1bf517475e099ad46deff1f (diff)
config error
-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