'jplesnik pushed to rpms/perl-Mail-Box-POP3 (rawhide). "3.006 bump (rhbz#2235314)"'

[prev in list] [next in list] [prev in thread] [next in thread] 

List:       fedora-perl-devel-list
Subject:    jplesnik pushed to rpms/perl-Mail-Box-POP3 (rawhide).  "3.006 bump (rhbz#2235314)"
From:       notifications () fedoraproject ! org
Date:       2023-08-29 8:17:30
Message-ID: 20230829081730.7F7A3ACD21D0 () notifs-backend01 ! iad2 ! fedoraproject ! org
[Download RAW message or body]

Notification time stamped 2023-08-29 08:17:28 UTC

From 413e6442222f9787b9e6e3ae90fe9a4ff9c8c2e2 Mon Sep 17 00:00:00 2001
From: Jitka Plesnikova <jplesnik@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 <jplesnik@redhat.com> - 3.006-1
+- 3.006 bump (rhbz#2235314)
+
 * Thu Jul 20 2023 Fedora Release Engineering <releng@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-leave@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


[prev in list] [next in list] [prev in thread] [next in thread]
Configure | About | News | Add a list | Sponsored by KoreLogic