jplesnik pushed to rpms/perl-Mail-Box-POP3 (rawhide). "3.006 bump
(rhbz#2235314)"
by notifications@fedoraproject.org
Notification time stamped 2023-08-29 08:17:28 UTC
From 413e6442222f9787b9e6e3ae90fe9a4ff9c8c2e2 Mon Sep 17 00:00:00 2001
From: Jitka Plesnikova <jplesnik(a)redhat.com>
Date: Aug 29 2023 07:40:44 +0000
Subject: 3.006 bump (rhbz#2235314)
---
diff --git a/.gitignore b/.gitignore
index e638cb7..e7cb090 100644
--- a/.gitignore
+++ b/.gitignore
@@ -2,3 +2,4 @@
/Mail-Box-POP3-3.003.tar.gz
/Mail-Box-POP3-3.004.tar.gz
/Mail-Box-POP3-3.005.tar.gz
+/Mail-Box-POP3-3.006.tar.gz
diff --git a/Mail-Box-POP3-3.001-Use-IO-Socket-IP-to-support-IPv6.patch b/Mail-Box-POP3-3.001-Use-IO-Socket-IP-to-support-IPv6.patch
deleted file mode 100644
index 4d88399..0000000
--- a/Mail-Box-POP3-3.001-Use-IO-Socket-IP-to-support-IPv6.patch
+++ /dev/null
@@ -1,33 +0,0 @@
-diff -up Mail-Box-POP3-3.001/lib/Mail/Transport/POP3.pm.orig Mail-Box-POP3-3.001/lib/Mail/Transport/POP3.pm
---- Mail-Box-POP3-3.001/lib/Mail/Transport/POP3.pm.orig 2017-06-30 12:16:21.706412573 +0200
-+++ Mail-Box-POP3-3.001/lib/Mail/Transport/POP3.pm 2017-06-30 15:25:51.762535024 +0200
-@@ -257,7 +257,7 @@ sub login(;$)
- return;
- }
-
-- my $net = $self->useSSL ? 'IO::Socket::SSL' : 'IO::Socket::INET';
-+ my $net = $self->useSSL ? 'IO::Socket::SSL' : 'IO::Socket::IP';
- eval "require $net" or die $@;
-
- my $socket = eval { $net->new("$host:$port") };
-diff -up Mail-Box-POP3-3.001/t/server.orig Mail-Box-POP3-3.001/t/server
---- Mail-Box-POP3-3.001/t/server.orig 2017-06-30 12:17:40.145945703 +0200
-+++ Mail-Box-POP3-3.001/t/server 2017-06-30 12:21:19.785638413 +0200
-@@ -142,7 +142,7 @@ so a statistics list for one successful
- # Make sure we can do digests
-
- use strict;
--use IO::Socket;
-+use IO::Socket::IP;
- use Digest::MD5 qw(md5_hex);
-
- # Obtain the directory to work on
-@@ -181,7 +181,7 @@ while (my $keyword = shift) {
- # Create a server that can only take one connection at a time
-
- $| = 1;
--my $server = IO::Socket::INET->new(
-+my $server = IO::Socket::IP->new(
- Type => SOCK_STREAM,
- Listen => 1,
- @port,
diff --git a/Mail-Box-POP3-3.006-Use-IO-Socket-IP-to-support-IPv6.patch b/Mail-Box-POP3-3.006-Use-IO-Socket-IP-to-support-IPv6.patch
new file mode 100644
index 0000000..23e5ffb
--- /dev/null
+++ b/Mail-Box-POP3-3.006-Use-IO-Socket-IP-to-support-IPv6.patch
@@ -0,0 +1,54 @@
+diff -up Mail-Box-POP3-3.006/lib/Mail/Transport/POP3.pm.orig Mail-Box-POP3-3.006/lib/Mail/Transport/POP3.pm
+--- Mail-Box-POP3-3.006/lib/Mail/Transport/POP3.pm.orig 2023-08-28 13:36:31.000000000 +0200
++++ Mail-Box-POP3-3.006/lib/Mail/Transport/POP3.pm 2023-08-29 08:43:19.459502979 +0200
+@@ -16,7 +16,7 @@ use strict;
+ use warnings;
+
+ use IO::Socket ();
+-use IO::Socket::INET ();
++use IO::Socket::IP ();
+ use IO::Socket::SSL qw(SSL_VERIFY_NONE);
+ use Socket qw/$CRLF/;
+ use Digest::MD5 qw/md5_hex/;
+@@ -274,7 +274,7 @@ sub login(;$)
+ $socket = eval { IO::Socket::SSL->new(PeerAddr => "$host:$port", %$opts) };
+ }
+ else
+- { $socket = eval { IO::Socket::INET->new("$host:$port") };
++ { $socket = eval { IO::Socket::IP->new("$host:$port") };
+ }
+
+ unless($socket)
+diff -up Mail-Box-POP3-3.006/lib/Mail/Transport/POP3.pod.orig Mail-Box-POP3-3.006/lib/Mail/Transport/POP3.pod
+--- Mail-Box-POP3-3.006/lib/Mail/Transport/POP3.pod.orig 2023-08-29 08:43:41.464675281 +0200
++++ Mail-Box-POP3-3.006/lib/Mail/Transport/POP3.pod 2023-08-29 08:43:54.717779053 +0200
+@@ -264,7 +264,7 @@ was lost, it will be reconnected and the
+ state information (STAT and UIDL) is up-to-date in the object.
+
+ If the contact to the server was still present, or could be established,
+-an IO::Socket::INET object is returned. Else, C<undef> is returned and
++an IO::Socket::IP object is returned. Else, C<undef> is returned and
+ no further actions should be tried on the object.
+
+ =item $obj-E<gt>B<status>($socket)
+diff -up Mail-Box-POP3-3.006/t/server.orig Mail-Box-POP3-3.006/t/server
+--- Mail-Box-POP3-3.006/t/server.orig 2023-08-28 13:35:33.000000000 +0200
++++ Mail-Box-POP3-3.006/t/server 2023-08-29 08:43:19.459502979 +0200
+@@ -142,7 +142,7 @@ so a statistics list for one successful
+ # Make sure we can do digests
+
+ use strict;
+-use IO::Socket;
++use IO::Socket::IP;
+ use Digest::MD5 qw(md5_hex);
+
+ # Obtain the directory to work on
+@@ -181,7 +181,7 @@ while (my $keyword = shift) {
+ # Create a server that can only take one connection at a time
+
+ $| = 1;
+-my $server = IO::Socket::INET->new(
++my $server = IO::Socket::IP->new(
+ Type => SOCK_STREAM,
+ Listen => 1,
+ @port,
diff --git a/perl-Mail-Box-POP3.spec b/perl-Mail-Box-POP3.spec
index 6111514..ca78496 100644
--- a/perl-Mail-Box-POP3.spec
+++ b/perl-Mail-Box-POP3.spec
@@ -1,12 +1,13 @@
Name: perl-Mail-Box-POP3
-Version: 3.005
-Release: 14%{?dist}
+Version: 3.006
+Release: 1%{?dist}
Summary: Handle POP3 folders as client
License: GPL-1.0-or-later OR Artistic-1.0-Perl
URL: https://metacpan.org/release/Mail-Box-POP3
Source0: https://cpan.metacpan.org/authors/id/M/MA/MARKOV/Mail-Box-POP3-%{version}...
-Patch0: Mail-Box-POP3-3.001-Use-IO-Socket-IP-to-support-IPv6.patch
+Patch0: Mail-Box-POP3-3.006-Use-IO-Socket-IP-to-support-IPv6.patch
BuildArch: noarch
+BuildRequires: coreutils
BuildRequires: make
BuildRequires: perl-interpreter
BuildRequires: perl-generators
@@ -22,12 +23,14 @@ BuildRequires: perl(File::Basename)
BuildRequires: perl(File::Spec)
BuildRequires: perl(IO::Socket)
BuildRequires: perl(IO::Socket::IP)
+BuildRequires: perl(IO::Socket::SSL)
BuildRequires: perl(List::Util)
BuildRequires: perl(Mail::Box::FastScalar) >= 3
BuildRequires: perl(Mail::Box::Net) >= 3
BuildRequires: perl(Mail::Box::Net::Message)
BuildRequires: perl(Mail::Box::Parser::Perl) >= 3
BuildRequires: perl(Mail::Transport::Receive) >= 3
+BuildRequires: perl(MIME::Base64)
BuildRequires: perl(Socket)
BuildRequires: perl(strict)
BuildRequires: perl(vars)
@@ -35,8 +38,6 @@ BuildRequires: perl(warnings)
# Tests
BuildRequires: perl(Mail::Box::Test) >= 3
BuildRequires: perl(Test::More)
-Requires: perl(IO::Socket::IP)
-Requires: perl(IO::Socket::SSL)
Requires: perl(Mail::Box::FastScalar) >= 3
Requires: perl(Mail::Box::Net) >= 3
Requires: perl(Mail::Box::Parser::Perl) >= 3
@@ -55,15 +56,14 @@ transport of information, and focuses solely on the correct handling of
messages within a POP3 folder.
%prep
-%setup -q -n Mail-Box-POP3-%{version}
-%patch0 -p1
+%autosetup -p1 -n Mail-Box-POP3-%{version}
%build
-perl Makefile.PL INSTALLDIRS=vendor NO_PACKLIST=1
-make %{?_smp_mflags}
+perl Makefile.PL INSTALLDIRS=vendor NO_PACKLIST=1 NO_PERLLOCAL=1
+%{make_build}
%install
-make pure_install DESTDIR=$RPM_BUILD_ROOT
+%{make_install}
%{_fixperms} $RPM_BUILD_ROOT/*
%check
@@ -75,6 +75,9 @@ MARKOV_DEVEL=1 make test
%{_mandir}/man3/*
%changelog
+* Mon Aug 28 2023 Jitka Plesnikova <jplesnik(a)redhat.com> - 3.006-1
+- 3.006 bump (rhbz#2235314)
+
* Thu Jul 20 2023 Fedora Release Engineering <releng(a)fedoraproject.org> - 3.005-14
- Rebuilt for https://fedoraproject.org/wiki/Fedora_39_Mass_Rebuild
diff --git a/sources b/sources
index 042d8e4..e5f8c84 100644
--- a/sources
+++ b/sources
@@ -1 +1 @@
-SHA512 (Mail-Box-POP3-3.005.tar.gz) = cbcda3c9df08d8cf5d279e1b8308885213b75b0af56a3be7c0a5fc769ff60a6c9e6f2cd5ab4ab19532e388e14ceb6b4b62042dea4bb512c31384823004137079
+SHA512 (Mail-Box-POP3-3.006.tar.gz) = 01897da20b53d6078f0f43c0442a0b93a8067cb704c040fb398b4772286c8bba3a97c5aaee2729baeab58575533f3e4a84d7761dc9d9c2173aa7f57ca1c9bcbe
https://src.fedoraproject.org/rpms/perl-Mail-Box-POP3/c/413e6442222f9787b...