Notification time stamped 2023-08-29 08:17:28 UTC From 413e6442222f9787b9e6e3ae90fe9a4ff9c8c2e2 Mon Sep 17 00:00:00 2001 From: Jitka Plesnikova <jples...@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}.tar.gz -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 <jples...@redhat.com> - 3.006-1 +- 3.006 bump (rhbz#2235314) + * Thu Jul 20 2023 Fedora Release Engineering <rel...@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/413e6442222f9787b9e6e3ae90fe9a4ff9c8c2e2?branch=rawhide _______________________________________________ perl-devel mailing list -- perl-devel@lists.fedoraproject.org To unsubscribe send an email to perl-devel-le...@lists.fedoraproject.org Fedora Code of Conduct: https://docs.fedoraproject.org/en-US/project/code-of-conduct/ List Guidelines: https://fedoraproject.org/wiki/Mailing_list_guidelines List Archives: https://lists.fedoraproject.org/archives/list/perl-devel@lists.fedoraproject.org Do not reply to spam, report it: https://pagure.io/fedora-infrastructure/new_issue