more fixes from Net::SMTP::TLS::ButMaintained (via Mikolaj Kucharski, thanks).
This commit is contained in:
parent
69db9fb84d
commit
731bee596d
net/p5-Net-SMTP-TLS
@ -1,10 +1,10 @@
|
||||
# $OpenBSD: Makefile,v 1.5 2011/12/14 14:58:57 sthen Exp $
|
||||
# $OpenBSD: Makefile,v 1.6 2012/06/30 21:27:53 sthen Exp $
|
||||
|
||||
COMMENT= Perl module for SMTP with TLS/AUTH support
|
||||
|
||||
MODULES= cpan
|
||||
DISTNAME= Net-SMTP-TLS-0.12
|
||||
REVISION= 1
|
||||
REVISION= 2
|
||||
CATEGORIES= net mail
|
||||
|
||||
# perl
|
||||
|
@ -1,9 +1,9 @@
|
||||
$OpenBSD: patch-lib_Net_SMTP_TLS_pm,v 1.1 2011/12/14 14:58:57 sthen Exp $
|
||||
$OpenBSD: patch-lib_Net_SMTP_TLS_pm,v 1.2 2012/06/30 21:27:53 sthen Exp $
|
||||
|
||||
Add fixes from Net::SMTP::TLS::ButMaintained 0.18
|
||||
Add fixes from Net::SMTP::TLS::ButMaintained 0.18 and 0.19
|
||||
|
||||
--- lib/Net/SMTP/TLS.pm.orig Tue Jan 17 14:36:34 2006
|
||||
+++ lib/Net/SMTP/TLS.pm Wed Dec 14 14:57:11 2011
|
||||
+++ lib/Net/SMTP/TLS.pm Sat Jun 30 19:45:08 2012
|
||||
@@ -115,10 +115,14 @@ sub new {
|
||||
|
||||
my $me = bless \%args, $pkg;
|
||||
@ -20,6 +20,15 @@ Add fixes from Net::SMTP::TLS::ButMaintained 0.18
|
||||
$me->hello(); # the first hello, 2nd after starttls
|
||||
$me->starttls() if not $args{NoTLS}; # why we're here, after all
|
||||
$me->login() if($me->{User} and $me->{Password});
|
||||
@@ -179,7 +183,7 @@ sub starttls {
|
||||
croak "Invalid response for STARTTLS: $num $txt\n";
|
||||
}
|
||||
if(not IO::Socket::SSL::socket_to_SSL($me->{sock},
|
||||
- SSL_version => "SSLv3 TLSv1")){
|
||||
+ SSL_version => "TLSv1")){
|
||||
croak "Couldn't start TLS: ".IO::Socket::SSL::errstr."\n";
|
||||
}
|
||||
$me->hello();
|
||||
@@ -251,7 +255,7 @@ sub auth_PLAIN{
|
||||
my $me = shift;
|
||||
my $user= $me->{User};
|
||||
|
Loading…
Reference in New Issue
Block a user