Skip to content
Browse files

disabled errors

  • Loading branch information...
1 parent 57f8ec7 commit ee1f44cf436ff38c86531e9c8c45867f7455af25 Paul Miller committed
Showing with 7 additions and 6 deletions.
  1. +5 −0 Changes
  2. +2 −6 Simple.pm
View
5 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)
View
8 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};
}
},
);

0 comments on commit ee1f44c

Please sign in to comment.
Something went wrong with that request. Please try again.