aboutsummaryrefslogtreecommitdiffstats
path: root/lib/Net/IMAP/Sync.pm
diff options
context:
space:
mode:
authorGuilhem Moulin <guilhem@fripost.org>2015-07-23 15:47:10 +0200
committerGuilhem Moulin <guilhem@fripost.org>2015-07-23 17:15:38 +0200
commit847ce3f06147edc314b420030b0d9239153c79a8 (patch)
treecb58c0b8eb38796d73521160a11467cfe4afc4ba /lib/Net/IMAP/Sync.pm
parent71edd6346a069740661789a8ebdb6f34fda7a966 (diff)
bugfix
Diffstat (limited to 'lib/Net/IMAP/Sync.pm')
-rw-r--r--lib/Net/IMAP/Sync.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Net/IMAP/Sync.pm b/lib/Net/IMAP/Sync.pm
index b952546..ad7b2f5 100644
--- a/lib/Net/IMAP/Sync.pm
+++ b/lib/Net/IMAP/Sync.pm
@@ -321,7 +321,7 @@ sub new($%) {
$self->fail("Logins are disabled.") if grep {$_ eq 'LOGINDISABLED'} @caps;
my @mechs = grep defined, map { /^AUTH=(.+)/ ? $1 : undef } @caps;
- my $mech = (grep defined, map {my $m = $_; grep {$m eq $_} @mechs ? $m : undef}
+ my $mech = (grep defined, map {my $m = $_; (grep {$m eq $_} @mechs) ? $m : undef}
split(/ /, $self->{auth}))[0];
$self->fail("Failed to choose an authentication mechanism") unless defined $mech;
@@ -847,7 +847,7 @@ sub pull_updates($) {
# do that afterwards since the UID FETCH command above can produce VANISHED responses
my %vanished = map {$_ => 1} @{$self->{_VANISHED}};
- my @vanished = keys %vanished;
+ @vanished = keys %vanished;
$self->{_VANISHED} = [];
# ignore FLAG updates on VANISHED messages