diff options
| author | Guilhem Moulin <guilhem@fripost.org> | 2018-05-09 01:50:30 +0200 |
|---|---|---|
| committer | Guilhem Moulin <guilhem@fripost.org> | 2018-05-09 01:50:30 +0200 |
| commit | 18c5d6aec9e9dab83e96edeb8890e8cd9ef63b66 (patch) | |
| tree | 4bbc4ff3261ce181e1524018dde0f807644b1b43 | |
| parent | 63067fcd949c47b427edf402bb164103b5033cca (diff) | |
| parent | 03f02402ff8cb75eef3c727ceba8f2c28fdec551 (diff) | |
Merge branch 'master' into debian
| -rw-r--r-- | lib/Net/IMAP/InterIMAP.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Net/IMAP/InterIMAP.pm b/lib/Net/IMAP/InterIMAP.pm index 4a9ffd9..3270108 100644 --- a/lib/Net/IMAP/InterIMAP.pm +++ b/lib/Net/IMAP/InterIMAP.pm @@ -963,7 +963,7 @@ sub slurp($$$) { foreach my $imap (@ready) { my $x = $imap->_getline(); $imap->_resp($x, sub($;$$) { - if ($stopwhen->(@_)) { + if ($stopwhen->($imap, @_)) { $aborted = 1; $timeout = 0; # keep reading the handles while there is pending data } @@ -2288,7 +2288,7 @@ sub _resp($$;&$$) { elsif (/\ASEARCH((?: [0-9]+)*)\z/) { $callback->(split(/ /, ($1 =~ s/^ //r))) if defined $callback and $cmd eq 'SEARCH'; } - elsif (s/\AESEARCH \(TAG \Q$set\E\)( UID)?//) { + elsif (defined $set and s/\AESEARCH \(TAG \Q$set\E\)( UID)?//) { my $uid = $1; my %ret; # RFC 4731 while ($_ ne '') { |