diff options
| author | Guilhem Moulin <guilhem@fripost.org> | 2015-07-25 01:07:10 +0200 |
|---|---|---|
| committer | Guilhem Moulin <guilhem@fripost.org> | 2015-07-25 01:07:10 +0200 |
| commit | a2e522510b2b5122aa2ba3d120c0f28e2d24ed03 (patch) | |
| tree | e16260bcd4410f451bbce01954f0a87ffc254f89 /lib/Net/IMAP/Sync.pm | |
| parent | 7d981939c61bc9b94dcb027884d5a81cbc69fbcf (diff) | |
wibble
Diffstat (limited to 'lib/Net/IMAP/Sync.pm')
| -rw-r--r-- | lib/Net/IMAP/Sync.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Net/IMAP/Sync.pm b/lib/Net/IMAP/Sync.pm index 9882d75..be083f3 100644 --- a/lib/Net/IMAP/Sync.pm +++ b/lib/Net/IMAP/Sync.pm @@ -376,7 +376,7 @@ sub new($%) { $self->fail("Server did not advertize ENABLE (RFC 5161) capability.") unless $self->_capable('ENABLE'); $self->_send('ENABLE '.join(' ',@extensions)); my @enabled = @{$self->{_ENABLED} // []}; - $self->fail("Could not ENABLE $_") foreach + $self->fail("Couldn't ENABLE $_") foreach grep {my $e = $_; !grep {uc $e eq uc $_} @enabled} @extensions; } @@ -602,7 +602,7 @@ sub remove_message($@) { $self->log("Removed ".($#expunged+1)." message(s), ". "UID ".compact_set(@expunged)) if @expunged and !$self->{quiet}; - $self->warn("Could not UID EXPUNGE ".compact_set(@failed)) if @failed; + $self->warn("Couldn't UID EXPUNGE ".compact_set(@failed)) if @failed; return @failed; } |