dont die on empty list result foerste
authorMatthias Förste foerste@schlittermann.de
Sun, 11 Dec 2011 11:48:25 +0100
branchfoerste
changeset 58 dd04534fe595
parent 57 0f4e26c6b86e
child 59 df896a01960d
dont die on empty list result
acl.pm
--- 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 [];
 
 }