| CC: | "ChinaXing(陈云星)" <chen.yack [...] gmail.com> |
| Subject: | [PATCH] fix bug in "find_ssl_defaults" |
| Date: | Mon, 5 Aug 2013 16:04:41 +0800 |
| To: | bug-Net-IMAP-Simple [...] rt.cpan.org |
| From: | ChinaXing(陈云星) <chen.yack [...] gmail.com> |
From: "ChinaXing(陈云星)" <chen.yack@gmail.com>
---
Simple.pm | 2 ++
1 file changed, 2 insertions(+)
diff --git a/Simple.pm b/Simple.pm
index e0fa9a1..70caa30 100644
--- a/Simple.pm
+++ b/Simple.pm
@@ -68,10 +68,12 @@ sub new {
if( -f $_ ) {
@{ $self->{ssl_options} } = (SSL_ca_file=>$_, SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_PEER());
+ $nothing = 0;
last;
} elsif( -d $_ ) {
@{ $self->{ssl_options} } = (SSL_ca_path=>$_, SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_PEER());
+ $nothing = 0;
last;
}
}
--
1.7.9.5