diff options
author | Guilhem Moulin <guilhem@fripost.org> | 2018-05-09 01:22:32 +0200 |
---|---|---|
committer | Guilhem Moulin <guilhem@fripost.org> | 2018-05-09 01:22:32 +0200 |
commit | bcbb33688254397c78a80922230054c6aa66c254 (patch) | |
tree | faaea774e3df737f67d240cbe0154f5c822a6a03 | |
parent | c41c280d3a1243ae445311e1ededd1dedc1484c3 (diff) |
Fix uninitialized value $set in quotemeta
-rw-r--r-- | lib/Net/IMAP/InterIMAP.pm | 2 |
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 '') { |