aboutsummaryrefslogtreecommitdiffstats
path: root/lib/Net
diff options
context:
space:
mode:
authorGuilhem Moulin <guilhem@fripost.org>2018-05-09 01:50:30 +0200
committerGuilhem Moulin <guilhem@fripost.org>2018-05-09 01:50:30 +0200
commit18c5d6aec9e9dab83e96edeb8890e8cd9ef63b66 (patch)
tree4bbc4ff3261ce181e1524018dde0f807644b1b43 /lib/Net
parent63067fcd949c47b427edf402bb164103b5033cca (diff)
parent03f02402ff8cb75eef3c727ceba8f2c28fdec551 (diff)
Merge branch 'master' into debian
Diffstat (limited to 'lib/Net')
-rw-r--r--lib/Net/IMAP/InterIMAP.pm4
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 '') {