From a4729170cffc902319b08bae86e1ab6e20a7939d Mon Sep 17 00:00:00 2001
From: Guilhem Moulin <guilhem@fripost.org>
Date: Sun, 13 Sep 2015 13:37:50 +0200
Subject: Fix detection of boolean options.

---
 lib/Net/IMAP/InterIMAP.pm | 11 +----------
 1 file changed, 1 insertion(+), 10 deletions(-)

(limited to 'lib/Net')

diff --git a/lib/Net/IMAP/InterIMAP.pm b/lib/Net/IMAP/InterIMAP.pm
index 65a0c10..678e09d 100644
--- a/lib/Net/IMAP/InterIMAP.pm
+++ b/lib/Net/IMAP/InterIMAP.pm
@@ -100,7 +100,7 @@ sub read_config($$%) {
             die "Invalid option $k\n" unless defined $opts{$k};
             next unless defined $conf->{$k};
             die "Invalid option $k = $conf->{$k}\n" unless $conf->{$k} =~ $opts{$k};
-            $conf->{$k} = $1;
+            $conf->{$k} = $opts{$k} ne qr/\A(YES|NO)\z/i ? $1 : uc $1 eq 'YES' ? 1 : 0;
         }
     }
     return \%configs;
@@ -221,15 +221,6 @@ sub new($%) {
     my $self = { @_ };
     bless $self, $class;
 
-    foreach (keys %$self) {
-        next unless defined $self->{$_};
-        if (uc $self->{$_} eq 'YES') {
-            $self->{$_} = 1;
-        } elsif (uc $self->{$_} eq 'NO') {
-            $self->{$_} = 0;
-        }
-    }
-
     # the IMAP state: one of 'UNAUTH', 'AUTH', 'SELECTED' or 'LOGOUT'
     # (cf RFC 3501 section 3)
     $self->{_STATE} = '';
-- 
cgit v1.2.3