From 13dfe38995827778f9e88207caa8d691736b2cd9 Mon Sep 17 00:00:00 2001 From: CentOS Sources Date: Oct 30 2018 04:55:04 +0000 Subject: import perl-5.16.3-293.el7 --- diff --git a/SOURCES/perl-5.16.3-Fix-Math-BigInt-overload-warning.patch b/SOURCES/perl-5.16.3-Fix-Math-BigInt-overload-warning.patch new file mode 100644 index 0000000..307bb64 --- /dev/null +++ b/SOURCES/perl-5.16.3-Fix-Math-BigInt-overload-warning.patch @@ -0,0 +1,12 @@ +diff -Naur old/dist/Math-BigInt/lib/Math/BigInt.pm new/dist/Math-BigInt/lib/Math/BigInt.pm +--- old/dist/Math-BigInt/lib/Math/BigInt.pm 2011-09-03 16:26:41.000000000 +1000 ++++ new/dist/Math-BigInt/lib/Math/BigInt.pm 2013-04-15 14:39:17.890447159 +1000 +@@ -60,8 +60,6 @@ + '>>=' => sub { $_[0]->brsft($_[1]); }, + + # not supported by Perl yet +-'..' => \&_pointpoint, +- + '<=>' => sub { my $rc = $_[2] ? + ref($_[0])->bcmp($_[1],$_[0]) : + $_[0]->bcmp($_[1]); diff --git a/SOURCES/perl-5.16.3-Fix-PAUSE-indexing-problem.patch b/SOURCES/perl-5.16.3-Fix-PAUSE-indexing-problem.patch new file mode 100644 index 0000000..ea298a2 --- /dev/null +++ b/SOURCES/perl-5.16.3-Fix-PAUSE-indexing-problem.patch @@ -0,0 +1,69 @@ +From 23d7f6ae0009ab5f2aa9887d1204a98de7fd2326 Mon Sep 17 00:00:00 2001 +From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= +Date: Wed, 21 Mar 2018 14:50:08 +0100 +Subject: [PATCH 3/4] Fix PAUSE indexing problem +MIME-Version: 1.0 +Content-Type: text/plain; charset=UTF-8 +Content-Transfer-Encoding: 8bit + +Ported to Net::SMTP as found in Perl 5.16.3 from libnet upstream +commits: + +commit 4b426b971e4acf37fdbd08ffa88da4e6979fa133 +Author: Steve Hay +Date: Wed Oct 8 08:57:53 2014 +0100 + + Fix PAUSE indexing problem + + Net::POP3::_SSLified and Net::SMTP::_SSLified are already used by + Net-SSLGlue. + +commit 40a3dfc5c40a7fbe0a777a4af50978354e4903f4 +Author: Steve Hay +Date: Wed Oct 8 09:11:31 2014 +0100 + + Fix PAUSE indexing problem again + + Sigh. Net::SMTP::SSL is already used by Net-SMTP-SSL. + +This is to avoid clashes in name space when somebody uses Net-SSLGlue. + +Signed-off-by: Petr Písař +--- + cpan/libnet/Net/SMTP.pm | 6 +++--- + 1 file changed, 3 insertions(+), 3 deletions(-) + +diff --git a/cpan/libnet/Net/SMTP.pm b/cpan/libnet/Net/SMTP.pm +index 7dbf3df..6475c86 100644 +--- a/cpan/libnet/Net/SMTP.pm ++++ b/cpan/libnet/Net/SMTP.pm +@@ -72,7 +72,7 @@ sub new { + + ${*$obj}{'net_smtp_arg'} = \%arg; + if ($arg{SSL}) { +- Net::SMTP::_SSLified->start_SSL($obj,SSL_verifycn_name => $host,%arg) ++ Net::SMTP::_SSL->start_SSL($obj,SSL_verifycn_name => $host,%arg) + or return; + } + +@@ -217,7 +217,7 @@ sub starttls { + my $self = shift; + $ssl_class or die $nossl_warn; + $self->_STARTTLS or return; +- Net::SMTP::_SSLified->start_SSL($self, ++ Net::SMTP::_SSL->start_SSL($self, + %{ ${*$self}{'net_smtp_arg'} }, # (ssl) args given in new + @_ # more (ssl) args + ) or return; +@@ -567,7 +567,7 @@ sub _STARTTLS { shift->command("STARTTLS", @_)->response() == CMD_OK } + + + { +- package Net::SMTP::_SSLified; ++ package Net::SMTP::_SSL; + our @ISA = ( $ssl_class ? ($ssl_class):(), 'Net::SMTP' ); + sub starttls { die "SMTP connection is already in SSL mode" } + sub start_SSL { +-- +2.14.3 + diff --git a/SOURCES/perl-5.16.3-SSL-support-for-Net-SMTP.patch b/SOURCES/perl-5.16.3-SSL-support-for-Net-SMTP.patch new file mode 100644 index 0000000..7a64065 --- /dev/null +++ b/SOURCES/perl-5.16.3-SSL-support-for-Net-SMTP.patch @@ -0,0 +1,180 @@ +From d3ad0a08dbd9e32a498a5f3335d521d6c38f4f1f Mon Sep 17 00:00:00 2001 +From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= +Date: Wed, 21 Mar 2018 13:21:42 +0100 +Subject: [PATCH 1/4] SSL support for Net::SMTP +MIME-Version: 1.0 +Content-Type: text/plain; charset=UTF-8 +Content-Transfer-Encoding: 8bit + +Ported to Net::SMTP 2.31 as found in Perl 5.16.3 from libnet upstream: + +commit 34436780081aa8793b16f51864bce42a7cdd7e8b +Author: Steffen Ullrich +Date: Fri May 16 21:55:20 2014 +0200 + + added tests for Net::SMTP SSL and IPv6, save arguments in Net::SMTP to apply them on starttls + +IPv6 support exluded. + +Check for IO::Socket::SSL version removed because we have default sane +default CA list since perl-IO-Socket-SSL-1.94-7.el7. We also set +SSL_verify_mode => SSL_VERIFY_PEER by default. + +Signed-off-by: Petr Písař +--- + cpan/libnet/Net/Cmd.pm | 1 - + cpan/libnet/Net/SMTP.pm | 72 +++++++++++++++++++++++++++++++++++++++++++++++++ + 2 files changed, 72 insertions(+), 1 deletion(-) + +diff --git a/cpan/libnet/Net/Cmd.pm b/cpan/libnet/Net/Cmd.pm +index 4f0e444..29eeb14 100644 +--- a/cpan/libnet/Net/Cmd.pm ++++ b/cpan/libnet/Net/Cmd.pm +@@ -53,7 +53,6 @@ my %debug = (); + + my $tr = $^O eq 'os390' ? Convert::EBCDIC->new() : undef; + +- + sub toebcdic { + my $cmd = shift; + +diff --git a/cpan/libnet/Net/SMTP.pm b/cpan/libnet/Net/SMTP.pm +index a28496d..6143990 100644 +--- a/cpan/libnet/Net/SMTP.pm ++++ b/cpan/libnet/Net/SMTP.pm +@@ -18,6 +18,15 @@ use Net::Config; + + $VERSION = "2.31"; + ++# Code for detecting if we can use SSL ++my $ssl_class = eval { ++ require IO::Socket::SSL; ++} && 'IO::Socket::SSL'; ++my $nossl_warn = !$ssl_class && ++ 'To use SSL please install IO::Socket::SSL'; ++ ++sub can_ssl { $ssl_class }; ++ + @ISA = qw(Net::Cmd IO::Socket::INET); + + +@@ -33,6 +42,13 @@ sub new { + %arg = @_; + $host = delete $arg{Host}; + } ++ ++ if ($arg{SSL}) { ++ # SSL from start ++ die $nossl_warn if !$ssl_class; ++ $arg{Port} ||= 465; ++ } ++ + my $hosts = defined $host ? $host : $NetConfig{smtp_hosts}; + my $obj; + +@@ -54,6 +70,11 @@ sub new { + return undef + unless defined $obj; + ++ if ($arg{SSL}) { ++ Net::SMTP::_SSLified->start_SSL($obj,SSL_verifycn_name => $host,%arg) ++ or return; ++ } ++ + $obj->autoflush(1); + + $obj->debug(exists $arg{Debug} ? $arg{Debug} : undef); +@@ -185,11 +206,22 @@ sub hello { + } + + return undef unless $ok; ++ ${*$me}{net_smtp_hello_domain} = $domain; + + $msg[0] =~ /\A\s*(\S+)/; + return ($1 || " "); + } + ++sub starttls { ++ my $self = shift; ++ $ssl_class or die $nossl_warn; ++ $self->_STARTTLS or return; ++ Net::SMTP::_SSLified->start_SSL($self,@_) or return; ++ ++ # another hello after starttls to read new ESMTP capabilities ++ return $self->hello(${*$self}{net_smtp_hello_domain}); ++} ++ + + sub supports { + my $self = shift; +@@ -527,6 +559,27 @@ sub _BDAT { shift->command("BDAT", @_) } + sub _TURN { shift->unsupported(@_); } + sub _ETRN { shift->command("ETRN", @_)->response() == CMD_OK } + sub _AUTH { shift->command("AUTH", @_)->response() == CMD_OK } ++sub _STARTTLS { shift->command("STARTTLS", @_)->response() == CMD_OK } ++ ++ ++{ ++ package Net::SMTP::_SSLified; ++ our @ISA = ( $ssl_class ? ($ssl_class):(), 'Net::SMTP' ); ++ sub starttls { die "SMTP connection is already in SSL mode" } ++ sub start_SSL { ++ my ($class,$smtp,%arg) = @_; ++ delete @arg{ grep { !m{^SSL_} } keys %arg }; ++ ( $arg{SSL_verifycn_name} ||= $smtp->host ) ++ =~s{(?SUPER::start_SSL($smtp,%arg); ++ $@ = $ssl_class->errstr if !$ok; ++ return $ok; ++ } ++} ++ ++ + + 1; + +@@ -613,6 +666,11 @@ the C option in L, or a reference to + an array with hosts to try in turn. The L method will return the value + which was used to connect to the host. + ++B - If the connection should be done from start with SSL, contrary to later ++upgrade with C. ++You can use SSL arguments as documented in L, but it will ++usually use the right arguments already. ++ + B and B - These parameters are passed directly + to IO::Socket to allow binding the socket to a local port. + +@@ -643,6 +701,14 @@ Example: + Debug => 1, + ); + ++ # the same with direct SSL ++ $smtp = Net::SMTP->new('mailhost', ++ Hello => 'my.mail.domain', ++ Timeout => 30, ++ Debug => 1, ++ SSL => 1, ++ ); ++ + # Connect to the default server from Net::config + $smtp = Net::SMTP->new( + Hello => 'my.mail.domain', +@@ -686,6 +752,12 @@ to connect to the host. + + Request a queue run for the DOMAIN given. + ++=item starttls ( SSLARGS ) ++ ++Upgrade existing plain connection to SSL. ++You can use SSL arguments as documented in L, but it will ++usually use the right arguments already. ++ + =item auth ( USERNAME, PASSWORD ) + + Attempt SASL authentication. +-- +2.14.3 + diff --git a/SOURCES/perl-5.16.3-added-tests-for-Net-SMTP-SSL-save-arguments-in-Net-S.patch b/SOURCES/perl-5.16.3-added-tests-for-Net-SMTP-SSL-save-arguments-in-Net-S.patch new file mode 100644 index 0000000..47cabf8 --- /dev/null +++ b/SOURCES/perl-5.16.3-added-tests-for-Net-SMTP-SSL-save-arguments-in-Net-S.patch @@ -0,0 +1,195 @@ +From 1d3aa3540da1a751c047e84fbc5dca793e411b2e Mon Sep 17 00:00:00 2001 +From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= +Date: Wed, 21 Mar 2018 13:48:53 +0100 +Subject: [PATCH 2/4] added tests for Net::SMTP SSL, save arguments in + Net::SMTP to apply them on starttls +MIME-Version: 1.0 +Content-Type: text/plain; charset=UTF-8 +Content-Transfer-Encoding: 8bit + +Ported to Net::SMTP 2.31 as found in Perl 5.16.3 from libnet upstream: + +commit 34436780081aa8793b16f51864bce42a7cdd7e8b +Author: Steffen Ullrich +Date: Fri May 16 21:55:20 2014 +0200 + + added tests for Net::SMTP SSL and IPv6, save arguments in Net::SMTP to apply them on starttls + +IPv6 support excluded. + +Check for IO::Socket::SSL version removed because we have default sane +default CA list since perl-IO-Socket-SSL-1.94-7.el7. + +Signed-off-by: Petr Písař +--- + MANIFEST | 1 + + cpan/libnet/Net/SMTP.pm | 6 ++- + cpan/libnet/t/smtp_ssl.t | 120 +++++++++++++++++++++++++++++++++++++++++++++++ + 3 files changed, 126 insertions(+), 1 deletion(-) + create mode 100644 cpan/libnet/t/smtp_ssl.t + +diff --git a/MANIFEST b/MANIFEST +index b649ddb..aa117d3 100644 +--- a/MANIFEST ++++ b/MANIFEST +@@ -1456,6 +1456,7 @@ cpan/libnet/t/libnet_t.pl libnet + cpan/libnet/t/netrc.t libnet + cpan/libnet/t/nntp.t libnet + cpan/libnet/t/require.t libnet ++cpan/libnet/t/smtp_ssl.t libnet + cpan/libnet/t/smtp.t libnet + cpan/libnet/t/time.t libnet + cpan/List-Util/Changes Util extension +diff --git a/cpan/libnet/Net/SMTP.pm b/cpan/libnet/Net/SMTP.pm +index 6143990..7dbf3df 100644 +--- a/cpan/libnet/Net/SMTP.pm ++++ b/cpan/libnet/Net/SMTP.pm +@@ -70,6 +70,7 @@ sub new { + return undef + unless defined $obj; + ++ ${*$obj}{'net_smtp_arg'} = \%arg; + if ($arg{SSL}) { + Net::SMTP::_SSLified->start_SSL($obj,SSL_verifycn_name => $host,%arg) + or return; +@@ -216,7 +217,10 @@ sub starttls { + my $self = shift; + $ssl_class or die $nossl_warn; + $self->_STARTTLS or return; +- Net::SMTP::_SSLified->start_SSL($self,@_) or return; ++ Net::SMTP::_SSLified->start_SSL($self, ++ %{ ${*$self}{'net_smtp_arg'} }, # (ssl) args given in new ++ @_ # more (ssl) args ++ ) or return; + + # another hello after starttls to read new ESMTP capabilities + return $self->hello(${*$self}{net_smtp_hello_domain}); +diff --git a/cpan/libnet/t/smtp_ssl.t b/cpan/libnet/t/smtp_ssl.t +new file mode 100644 +index 0000000..e817d00 +--- /dev/null ++++ b/cpan/libnet/t/smtp_ssl.t +@@ -0,0 +1,120 @@ ++use strict; ++use warnings; ++use Test::More; ++use File::Temp 'tempfile'; ++use Net::SMTP; ++ ++my $debug = 0; # Net::SMTP Debug => .. ++ ++plan skip_all => "no SSL support found in Net::SMTP" if ! Net::SMTP->can_ssl; ++ ++plan skip_all => "fork not supported on this platform" ++ if grep { $^O =~m{$_} } qw(MacOS VOS vmesa riscos amigaos); ++ ++plan skip_all => "incomplete or to old version of IO::Socket::SSL" if ! eval { ++ require IO::Socket::SSL ++ && require IO::Socket::SSL::Utils ++ && defined &IO::Socket::SSL::Utils::CERT_create; ++}; ++ ++my $srv = IO::Socket::INET->new( ++ LocalAddr => '127.0.0.1', ++ Listen => 10 ++); ++plan skip_all => "cannot create listener on localhost: $!" if ! $srv; ++my $saddr = $srv->sockhost.':'.$srv->sockport; ++ ++plan tests => 2; ++ ++my ($ca,$key) = IO::Socket::SSL::Utils::CERT_create( CA => 1 ); ++my ($fh,$cafile) = tempfile(); ++print $fh IO::Socket::SSL::Utils::PEM_cert2string($ca); ++close($fh); ++ ++my $parent = $$; ++END { unlink($cafile) if $$ == $parent } ++ ++my ($cert) = IO::Socket::SSL::Utils::CERT_create( ++ subject => { CN => 'smtp.example.com' }, ++ issuer_cert => $ca, issuer_key => $key, ++ key => $key ++); ++ ++test(1); # direct ssl ++test(0); # starttls ++ ++ ++sub test { ++ my $ssl = shift; ++ defined( my $pid = fork()) or die "fork failed: $!"; ++ exit(smtp_server($ssl)) if ! $pid; ++ smtp_client($ssl); ++ wait; ++} ++ ++ ++sub smtp_client { ++ my $ssl = shift; ++ my %sslopt = ( ++ SSL_verifycn_name => 'smtp.example.com', ++ SSL_ca_file => $cafile ++ ); ++ $sslopt{SSL} = 1 if $ssl; ++ my $cl = Net::SMTP->new($saddr, %sslopt, Debug => $debug); ++ diag("created Net::SMTP object"); ++ if (!$cl) { ++ fail( ($ssl ? "SSL ":"" )."SMTP connect failed"); ++ } elsif ($ssl) { ++ $cl->quit; ++ pass("SSL SMTP connect success"); ++ } elsif ( ! $cl->starttls ) { ++ fail("starttls failed: $IO::Socket::SSL::SSL_ERROR"); ++ } else { ++ $cl->quit; ++ pass("starttls success"); ++ } ++} ++ ++sub smtp_server { ++ my $ssl = shift; ++ my $cl = $srv->accept or die "accept failed: $!"; ++ my %sslargs = ( ++ SSL_server => 1, ++ SSL_cert => $cert, ++ SSL_key => $key, ++ ); ++ if ( $ssl ) { ++ if ( ! IO::Socket::SSL->start_SSL($cl, %sslargs)) { ++ diag("initial ssl handshake with client failed"); ++ return; ++ } ++ } ++ ++ print $cl "220 welcome\r\n"; ++ while (<$cl>) { ++ my ($cmd,$arg) = m{^(\S+)(?: +(.*))?\r\n} or die $_; ++ $cmd = uc($cmd); ++ if ($cmd eq 'QUIT' ) { ++ print $cl "250 bye\r\n"; ++ last; ++ } elsif ( $cmd eq 'HELO' ) { ++ print $cl "250 localhost\r\n"; ++ } elsif ( $cmd eq 'EHLO' ) { ++ print $cl "250-localhost\r\n". ++ ( $ssl ? "" : "250-STARTTLS\r\n" ). ++ "250 HELP\r\n"; ++ } elsif ( ! $ssl and $cmd eq 'STARTTLS' ) { ++ print $cl "250 starting ssl\r\n"; ++ if ( ! IO::Socket::SSL->start_SSL($cl, %sslargs)) { ++ diag("initial ssl handshake with client failed"); ++ return; ++ } ++ $ssl = 1; ++ } else { ++ diag("received unknown command: $cmd"); ++ print "500 unknown cmd\r\n"; ++ } ++ } ++ ++ diag("SMTP dialog done"); ++} +-- +2.14.3 + diff --git a/SOURCES/perl-5.16.3-use-SNI-for-SSL-support-in-SMTP.patch b/SOURCES/perl-5.16.3-use-SNI-for-SSL-support-in-SMTP.patch new file mode 100644 index 0000000..b04f5dc --- /dev/null +++ b/SOURCES/perl-5.16.3-use-SNI-for-SSL-support-in-SMTP.patch @@ -0,0 +1,66 @@ +From 5f39e47e30390af4288acf47a6d342874a803cbf Mon Sep 17 00:00:00 2001 +From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= +Date: Wed, 21 Mar 2018 14:54:07 +0100 +Subject: [PATCH 4/4] use SNI for SSL support in SMTP +MIME-Version: 1.0 +Content-Type: text/plain; charset=UTF-8 +Content-Transfer-Encoding: 8bit + +Ported to Net::SMTP as found in Perl 5.16.3 from libnet upstream +commit: + +commit 50c6fd25f2958e6300ec8377ab40c3f1a23bd9fd +Author: Steffen Ullrich +Date: Fri Nov 28 11:47:16 2014 +0100 + + - model SSL support for Net::NNTP after Net::SMTP, i.e. upgrade to SSL class instead of using IO::Socket::SSL in plain and SSL mode + - use SNI for SSL support in SMTP, NNTP, POP3, FTP by default + +commit f2756a6b81ebfadbd1ce318879c20b6519207c49 +Author: Steffen Ullrich +Date: Sat Nov 29 17:13:58 2014 +0100 + + SSL support: use SNI only if supported by IO::Socket::SSL (i.e. openssl version>=1) + +Other protocols excluded. + +Signed-off-by: Petr Písař +--- + cpan/libnet/Net/SMTP.pm | 6 ++++-- + 1 file changed, 4 insertions(+), 2 deletions(-) + +diff --git a/cpan/libnet/Net/SMTP.pm b/cpan/libnet/Net/SMTP.pm +index 6475c86..d207c3c 100644 +--- a/cpan/libnet/Net/SMTP.pm ++++ b/cpan/libnet/Net/SMTP.pm +@@ -71,8 +71,9 @@ sub new { + unless defined $obj; + + ${*$obj}{'net_smtp_arg'} = \%arg; ++ ${*$obj}{'net_smtp_host'} = $host; + if ($arg{SSL}) { +- Net::SMTP::_SSL->start_SSL($obj,SSL_verifycn_name => $host,%arg) ++ Net::SMTP::_SSL->start_SSL($obj,%arg) + or return; + } + +@@ -86,7 +87,6 @@ sub new { + } + + ${*$obj}{'net_smtp_exact_addr'} = $arg{ExactAddresses}; +- ${*$obj}{'net_smtp_host'} = $host; + + (${*$obj}{'net_smtp_banner'}) = $obj->message; + (${*$obj}{'net_smtp_domain'}) = $obj->message =~ /\A\s*(\S+)/; +@@ -575,6 +575,8 @@ sub _STARTTLS { shift->command("STARTTLS", @_)->response() == CMD_OK } + delete @arg{ grep { !m{^SSL_} } keys %arg }; + ( $arg{SSL_verifycn_name} ||= $smtp->host ) + =~s{(?can_client_sni; + $arg{SSL_verifycn_scheme} ||= 'smtp'; + $arg{SSL_verify_mode} ||= IO::Socket::SSL::SSL_VERIFY_PEER(); + my $ok = $class->SUPER::start_SSL($smtp,%arg); +-- +2.14.3 + diff --git a/SPECS/perl.spec b/SPECS/perl.spec index 2967b85..c7534d0 100644 --- a/SPECS/perl.spec +++ b/SPECS/perl.spec @@ -31,7 +31,7 @@ Name: perl Version: %{perl_version} # release number must be even higher, because dual-lived modules will be broken otherwise -Release: 292%{?dist} +Release: 293%{?dist} Epoch: %{perl_epoch} Summary: Practical Extraction and Report Language Group: Development/Languages @@ -165,6 +165,16 @@ Patch36: perl-5.20.3-Don-t-leak-the-temp-utf8-copy-of-n.patch # RT#31923, in upstream after 5.23.3 Patch37: perl-5.16.3-Properly-duplicate-PerlIO-encoding-objects.patch +# Add SSL support to Net::SMTP, bug #1557574, CPAN RT#93823 +Patch38: perl-5.16.3-SSL-support-for-Net-SMTP.patch +Patch39: perl-5.16.3-added-tests-for-Net-SMTP-SSL-save-arguments-in-Net-S.patch +Patch40: perl-5.16.3-Fix-PAUSE-indexing-problem.patch +Patch41: perl-5.16.3-use-SNI-for-SSL-support-in-SMTP.patch + +# Do not overload ".." in Math::BigInt, bug #1497734, CPAN RT#80182, +# fixed in Math-BigInt-1.999718 +Patch42: perl-5.16.3-Fix-Math-BigInt-overload-warning.patch + # Update some of the bundled modules # see http://fedoraproject.org/wiki/Perl/perl.spec for instructions @@ -183,6 +193,11 @@ BuildRequires: procps, rsyslog # compat macro needed for rebuild %global perl_compat perl(:MODULE_COMPAT_5.16.3) +# perl-interpreter denotes a package with the perl executable. +# Full EVR is for compatibility with systems that swapped perl and perl-core +# . +Provides: perl-interpreter = %{perl_epoch}:%{perl_version}-%{release} + # Compat provides Provides: %perl_compat Provides: perl(:MODULE_COMPAT_5.16.2) @@ -234,6 +249,8 @@ handle Perl scripts. Summary: The libraries for the perl runtime Group: Development/Languages License: GPL+ or Artistic +# Interpreter version to fulfil requires based on "require 5.006;" +Provides: perl(:VERSION) = %{perl_version} Requires: %perl_compat %description libs @@ -1954,6 +1971,11 @@ tarball from perl.org. %patch35 -p1 %patch36 -p1 %patch37 -p1 +%patch38 -p1 +%patch39 -p1 +%patch40 -p1 +%patch41 -p1 +%patch42 -p1 %if !%{defined perl_bootstrap} # Local patch tracking @@ -1993,6 +2015,11 @@ perl -x patchlevel.h \ 'RHEL Patch35: Fix CRLF conversion in ASCII FTP upload (CPAN RT#41642)' \ 'RHEL Patch36: Do not leak the temp utf8 copy of namepv (CPAN RT#123786)' \ 'RHEL Patch37: Fix duplicating PerlIO::encoding when spawning threads (RT#31923)' \ + 'RHEL Patch38: Add SSL support to Net::SMTP (CPAN RT#93823) [1]' \ + 'RHEL Patch39: Add SSL support to Net::SMTP (CPAN RT#93823) [2]' \ + 'RHEL Patch40: Add SSL support to Net::SMTP (CPAN RT#93823) [3]' \ + 'RHEL Patch41: Add SSL support to Net::SMTP (CPAN RT#93823) [4]' \ + 'RHEL Patch42: Do not overload ".." in Math::BigInt (CPAN RT#80182)' \ %{nil} %endif @@ -3675,6 +3702,11 @@ sed \ # Old changelog entries are preserved in CVS. %changelog +* Wed Mar 21 2018 Petr Pisar - 4:5.16.3-293 +- Add SSL support to Net::SMTP (bug #1557574) +- Do not overload ".." in Math::BigInt (bug #1497734) +- Provide perl(:VERSION) and perl-interpreter RPM symbols (bug #1410347) + * Mon Feb 27 2017 Jitka Plesnikova - 4:5.16.3-292 - Removed perl-Perl4-CoreLibs because it was added as separate package to RHEL (bug #1366724)