cpet/openbsd-ports
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

more fixes from Net::SMTP::TLS::ButMaintained (via Mikolaj Kucharski, thanks).

Browse Source
This commit is contained in:
sthen 2012-06-30 21:27:53 +00:00
parent 69db9fb84d
commit 731bee596d
2 changed files with 14 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
net/p5-Net-SMTP-TLS/Makefile
View File

@ -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 COMMENT= Perl module for SMTP with TLS/AUTH support
MODULES= cpan MODULES= cpan
DISTNAME= Net-SMTP-TLS-0.12 DISTNAME= Net-SMTP-TLS-0.12
REVISION= 1 REVISION= 2
CATEGORIES= net mail CATEGORIES= net mail
# perl # perl

15
net/p5-Net-SMTP-TLS/patches/patch-lib_Net_SMTP_TLS_pm
View File

@ -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.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 { @@ -115,10 +115,14 @@ sub new {
my $me = bless \%args, $pkg; 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->hello(); # the first hello, 2nd after starttls
$me->starttls() if not $args{NoTLS}; # why we're here, after all $me->starttls() if not $args{NoTLS}; # why we're here, after all
$me->login() if($me->{User} and $me->{Password}); $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{ @@ -251,7 +255,7 @@ sub auth_PLAIN{
my $me = shift; my $me = shift;
my $user= $me->{User}; my $user= $me->{User};