aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lib/Net/IMAP/InterIMAP.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Net/IMAP/InterIMAP.pm b/lib/Net/IMAP/InterIMAP.pm
index d898f6d..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
}