fix hardcoding TLSv1 by Stuart Henderson

fayland · Jul 3, 2012 · ccd9ea8 · ccd9ea8
1 parent 7dc8a48
commit ccd9ea8
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 4 deletions.
diff --git a/Changes b/Changes
@@ -1,5 +1,8 @@
 Revision history for Net-SMTP-TLS-ButMaintained
 
+0.20    Jul 3rd, 2012
+    fix hardcoding TLSv1 by Stuart Henderson
+
 0.19    Jun 17th, 2012
     fix Misuse of IO::Socket::SSL (RT 77865, by Christopher Orsolits)
 

diff --git a/dist.ini b/dist.ini
@@ -1,5 +1,5 @@
 name    = Net-SMTP-TLS-ButMaintained
-version = 0.19
+version = 0.20
 author  = Alexander Christian Westholm <awestholm at verizon dawt net>
 author  = Fayland Lam <fayland@gmail.com>
 license = Perl_5
@@ -12,7 +12,7 @@ bundle = @FAYLAND
 [Prereqs]
 Net::SSLeay = 0
 IO::Socket::INET = 0
-IO::Socket::SSL = 1.75
+IO::Socket::SSL = 1.76
 MIME::Base64 = 0
 Digest::HMAC_MD5 = 0
 Net::Cmd = 0
diff --git a/lib/Net/SMTP/TLS/ButMaintained.pm b/lib/Net/SMTP/TLS/ButMaintained.pm
@@ -174,8 +174,7 @@ sub starttls {
 	if(not $num == 220){
 		croak "Invalid response for STARTTLS: $num $txt\n";
 	}
-	if(not IO::Socket::SSL::socket_to_SSL($me->{sock},
-		SSL_version	=>	"TLSv1")){
+	if(not IO::Socket::SSL::socket_to_SSL($me->{sock})){
 			croak "Couldn't start TLS: ".IO::Socket::SSL::errstr."\n";
 	}
 	$me->hello();