From 685b13ce32230ef7df18ea15a618740e59352d30 Mon Sep 17 00:00:00 2001
From: Guilhem Moulin <guilhem.moulin@ens-lyon.org>
Date: Tue, 25 Oct 2011 22:47:52 +0200
Subject: backward compatibility (?)

---
 imapurge.pl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/imapurge.pl b/imapurge.pl
index 6623ba8..d23f1a1 100755
--- a/imapurge.pl
+++ b/imapurge.pl
@@ -75,13 +75,14 @@ sub prune {
                 $count += $#msgs;
                 my $del = $client->delete_message(\@msgs)
                     or die "Can't delete messages: $@\n";
-                warn "  Folder `$folder': only $del message deleted, out of $#msgs\n"
+                warn "  Folder `$folder': only $del messages deleted, out of $#msgs\n"
                     unless $del == $#msgs+1;
             }
             $client->close or die "Can't close: $@\n";
         }
     }
 
-    $client->logout() or die "Can't logout: $@\n";
+    $client->logout();
+    die "Can't logout: $@\n" unless $client->IsUnconnected;
     return $count;
 }
-- 
cgit v1.2.3