diff --git a/ADDITIONS/mailbox_remover.pl b/ADDITIONS/mailbox_remover.pl index 02416242..fa27ecc0 100644 --- a/ADDITIONS/mailbox_remover.pl +++ b/ADDITIONS/mailbox_remover.pl @@ -117,7 +117,7 @@ foreach my $maildir (keys(%directories)) { close(TOUCH); print "Archiving $maildir\n"; @args = ($archcmd, "cvzf", $archive, $maildir); - system(@args) == 0 or die "Creating archive for $maildir failed: $?" + system(@args) == 0 or die "Creating archive for $maildir failed: $?"; rmtree($maildir); print localtime() . " $maildir has been deleted.\n";