--- a/acl.pm Sun Dec 11 11:47:58 2011 +0100
+++ b/acl.pm Sun Dec 11 11:48:25 2011 +0100
@@ -343,9 +343,10 @@
my ($ref, $folder) = @_;
my $list = $imap->list($ref, $folder) or die "Can't list('$ref', '$folder'): $@";
- ref $list or die "Got empty folder list. Does '$folder' actually exist? Is it readable?";
# single folder sieht wie folgt aus: [[flag1, flag2, ...], separator, foldername]
- return [ map $_->[2], @{$list} ];
+ ref $list and return [ map $_->[2], @{$list} ];
+ # assuming empty result list otherwise
+ return [];
}