acl.pm
branchfoerste
changeset 58 dd04534fe595
parent 56 722cdb1321c7
child 61 e0895d4224f2
--- 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 [];
 
 }