From bcbb33688254397c78a80922230054c6aa66c254 Mon Sep 17 00:00:00 2001
From: Guilhem Moulin <guilhem@fripost.org>
Date: Wed, 9 May 2018 01:22:32 +0200
Subject: [PATCH] Fix uninitialized value $set in quotemeta

---
 lib/Net/IMAP/InterIMAP.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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 '') {
-- 
2.39.2