--- a/account.pm	Mon Aug 28 16:14:14 2006 +0000
+++ b/account.pm	Tue Jul 31 10:46:37 2007 +0000
@@ -161,9 +161,9 @@
 
 	if ($imap->list($mbox)) { verbose("exists") }
 	else {
-	    $imap->create($mbox) and verbose("ok") or die $@;
-	    $imap->setacl($mbox, $Cf->imap_admin => "lrswipcda") or die $@;
-	    $imap->setquota($mbox, STORAGE => 1024 * $Cf->imap_quota) or die $@;
+	    $imap->create($mbox) and verbose("ok") or die $imap->error();
+	    $imap->setacl($mbox, $Cf->imap_admin => "lrswipcda") or die $imap->error();
+	    $imap->setquota($mbox, STORAGE => 1024 * $Cf->imap_quota) or die $imap->errror();
 	}
     }