|
 |
13dfe3 |
From 23d7f6ae0009ab5f2aa9887d1204a98de7fd2326 Mon Sep 17 00:00:00 2001
|
|
|
13dfe3 |
From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
|
|
|
13dfe3 |
Date: Wed, 21 Mar 2018 14:50:08 +0100
|
|
|
13dfe3 |
Subject: [PATCH 3/4] Fix PAUSE indexing problem
|
|
|
13dfe3 |
MIME-Version: 1.0
|
|
|
13dfe3 |
Content-Type: text/plain; charset=UTF-8
|
|
|
13dfe3 |
Content-Transfer-Encoding: 8bit
|
|
|
13dfe3 |
|
|
|
13dfe3 |
Ported to Net::SMTP as found in Perl 5.16.3 from libnet upstream
|
|
|
13dfe3 |
commits:
|
|
|
13dfe3 |
|
|
|
13dfe3 |
commit 4b426b971e4acf37fdbd08ffa88da4e6979fa133
|
|
|
13dfe3 |
Author: Steve Hay <steve.m.hay@googlemail.com>
|
|
|
13dfe3 |
Date: Wed Oct 8 08:57:53 2014 +0100
|
|
|
13dfe3 |
|
|
|
13dfe3 |
Fix PAUSE indexing problem
|
|
|
13dfe3 |
|
|
|
13dfe3 |
Net::POP3::_SSLified and Net::SMTP::_SSLified are already used by
|
|
|
13dfe3 |
Net-SSLGlue.
|
|
|
13dfe3 |
|
|
|
13dfe3 |
commit 40a3dfc5c40a7fbe0a777a4af50978354e4903f4
|
|
|
13dfe3 |
Author: Steve Hay <steve.m.hay@googlemail.com>
|
|
|
13dfe3 |
Date: Wed Oct 8 09:11:31 2014 +0100
|
|
|
13dfe3 |
|
|
|
13dfe3 |
Fix PAUSE indexing problem again
|
|
|
13dfe3 |
|
|
|
13dfe3 |
Sigh. Net::SMTP::SSL is already used by Net-SMTP-SSL.
|
|
|
13dfe3 |
|
|
|
13dfe3 |
This is to avoid clashes in name space when somebody uses Net-SSLGlue.
|
|
|
13dfe3 |
|
|
|
13dfe3 |
Signed-off-by: Petr Písař <ppisar@redhat.com>
|
|
|
13dfe3 |
---
|
|
|
13dfe3 |
cpan/libnet/Net/SMTP.pm | 6 +++---
|
|
|
13dfe3 |
1 file changed, 3 insertions(+), 3 deletions(-)
|
|
|
13dfe3 |
|
|
|
13dfe3 |
diff --git a/cpan/libnet/Net/SMTP.pm b/cpan/libnet/Net/SMTP.pm
|
|
|
13dfe3 |
index 7dbf3df..6475c86 100644
|
|
|
13dfe3 |
--- a/cpan/libnet/Net/SMTP.pm
|
|
|
13dfe3 |
+++ b/cpan/libnet/Net/SMTP.pm
|
|
|
13dfe3 |
@@ -72,7 +72,7 @@ sub new {
|
|
|
13dfe3 |
|
|
|
13dfe3 |
${*$obj}{'net_smtp_arg'} = \%arg;
|
|
|
13dfe3 |
if ($arg{SSL}) {
|
|
|
13dfe3 |
- Net::SMTP::_SSLified->start_SSL($obj,SSL_verifycn_name => $host,%arg)
|
|
|
13dfe3 |
+ Net::SMTP::_SSL->start_SSL($obj,SSL_verifycn_name => $host,%arg)
|
|
|
13dfe3 |
or return;
|
|
|
13dfe3 |
}
|
|
|
13dfe3 |
|
|
|
13dfe3 |
@@ -217,7 +217,7 @@ sub starttls {
|
|
|
13dfe3 |
my $self = shift;
|
|
|
13dfe3 |
$ssl_class or die $nossl_warn;
|
|
|
13dfe3 |
$self->_STARTTLS or return;
|
|
|
13dfe3 |
- Net::SMTP::_SSLified->start_SSL($self,
|
|
|
13dfe3 |
+ Net::SMTP::_SSL->start_SSL($self,
|
|
|
13dfe3 |
%{ ${*$self}{'net_smtp_arg'} }, # (ssl) args given in new
|
|
|
13dfe3 |
@_ # more (ssl) args
|
|
|
13dfe3 |
) or return;
|
|
|
13dfe3 |
@@ -567,7 +567,7 @@ sub _STARTTLS { shift->command("STARTTLS", @_)->response() == CMD_OK }
|
|
|
13dfe3 |
|
|
|
13dfe3 |
|
|
|
13dfe3 |
{
|
|
|
13dfe3 |
- package Net::SMTP::_SSLified;
|
|
|
13dfe3 |
+ package Net::SMTP::_SSL;
|
|
|
13dfe3 |
our @ISA = ( $ssl_class ? ($ssl_class):(), 'Net::SMTP' );
|
|
|
13dfe3 |
sub starttls { die "SMTP connection is already in SSL mode" }
|
|
|
13dfe3 |
sub start_SSL {
|
|
|
13dfe3 |
--
|
|
|
13dfe3 |
2.14.3
|
|
|
13dfe3 |
|