diff --git a/Changes b/Changes index 86218c4..1d2ea4a 100644 --- a/Changes +++ b/Changes @@ -1,3 +1,8 @@ +1.2204: Sat Dec 14 2013 + - disable error checking on expunge. It's not clear to me + that this ever produces an error (which would be with the + delete or select commands, not expunge). + 1.2203: Mon Oct 07 2013 - https://rt.cpan.org/Public/Bug/Display.html?id=89296 I think I fixed a design problem (no argument sanitization) diff --git a/Simple.pm b/Simple.pm index 4ca5ed1..00ef7a0 100644 --- a/Simple.pm +++ b/Simple.pm @@ -9,7 +9,7 @@ use IO::Socket; use IO::Select; use Net::IMAP::Simple::PipeSocket; -our $VERSION = "1.2203"; +our $VERSION = "1.2204"; BEGIN { # I'd really rather the pause/cpan indexers miss this "package" @@ -1003,22 +1003,18 @@ sub expunge_mailbox { # S: * 8 EXPUNGE # S: A202 OK EXPUNGE completed - $self->{_waserr} = 1; - my @expunged; return $self->_process_cmd( cmd => ['EXPUNGE'], final => sub { $self->_clear_cache; - return if $self->{_waserr}; - return @expunged if wantarray; + return @expunged if wantarray; # don't return 0E0 if want array and we're empty return "0E0" unless @expunged; return @expunged; }, process => sub { if( $_[0] =~ m/^\s*\*\s+(\d+)\s+EXPUNGE[\r\n]*$/i ) { push @expunged, $1; - delete $self->{_waserr}; } }, );