aboutsummaryrefslogtreecommitdiffstats
path: root/lib/Net/IMAP/InterIMAP.pm
diff options
context:
space:
mode:
authorGuilhem Moulin <guilhem@fripost.org>2018-05-09 01:22:32 +0200
committerGuilhem Moulin <guilhem@fripost.org>2018-05-09 01:22:32 +0200
commitbcbb33688254397c78a80922230054c6aa66c254 (patch)
treefaaea774e3df737f67d240cbe0154f5c822a6a03 /lib/Net/IMAP/InterIMAP.pm
parentc41c280d3a1243ae445311e1ededd1dedc1484c3 (diff)
Fix uninitialized value $set in quotemeta
Diffstat (limited to 'lib/Net/IMAP/InterIMAP.pm')
-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 4a9ffd9..d898f6d 100644
--- a/lib/Net/IMAP/InterIMAP.pm
+++ b/lib/Net/IMAP/InterIMAP.pm
@@ -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 '') {