From d08ee23dccf56af292a9616986e58cc39386e3fb Mon Sep 17 00:00:00 2001
From: Guilhem Moulin <guilhem@fripost.org>
Date: Fri, 8 Nov 2019 06:53:19 +0100
Subject: Remove deprecated/buggy 'o' regexp modifier.

---
 pullimap | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'pullimap')

diff --git a/pullimap b/pullimap
index dcbe59b..f983fe1 100755
--- a/pullimap
+++ b/pullimap
@@ -286,6 +286,7 @@ my $ATTRS = "ENVELOPE INTERNALDATE";
 $ATTRS .= " BODY.PEEK[]" unless $CONFIG{'no-delivery'};
 
 my $RE_ATOM = qr/[\x21\x23-\x27\x2A\x2B\x2D\x2F-\x39\x3D\x3F\x41-\x5A\x5E-\x7E]+/;
+my $DOT_STRING = qr/\A$RE_ATOM(?:\.$RE_ATOM)*\z/;
 sub pull_callback($$) {
     my ($uids, $mail) = @_;
     return unless exists $mail->{RFC822} or $CONFIG{'no-delivery'}; # not for us
@@ -294,7 +295,7 @@ sub pull_callback($$) {
     my $e = $mail->{ENVELOPE}->[3];
     my $sender = '';
     if (defined $e and defined (my $l = $e->[0]->[2]) and defined (my $d = $e->[0]->[3])) {
-        if ($l =~ /\A$RE_ATOM(?:\.$RE_ATOM)*\z/o) {
+        if ($l =~ $DOT_STRING) {
             $sender = $l.'@'.$d;
         } elsif ($l =~ /\A[\x20-\x7E]*\z/) {
             # quote the local part if not Dot-string (RFC 5321)
-- 
cgit v1.2.3


From 23046d58204e636880ff4412e52799e0c06065b4 Mon Sep 17 00:00:00 2001
From: Guilhem Moulin <guilhem@fripost.org>
Date: Mon, 11 Nov 2019 00:20:26 +0100
Subject: Bump minimum Perl for Net::IMAP::InterIMAP to v5.20.

We're using s///r which was introduced in 5.14, and hash slices which
were introduced in 5.20.
---
 pullimap | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'pullimap')

diff --git a/pullimap b/pullimap
index f983fe1..3d1a0ec 100755
--- a/pullimap
+++ b/pullimap
@@ -18,10 +18,10 @@
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
 #----------------------------------------------------------------------
 
+use v5.20.2;
 use strict;
 use warnings;
 
-use v5.20.2;
 our $VERSION = '0.4';
 my $NAME = 'pullimap';
 
-- 
cgit v1.2.3


From dac4ab1c9306bf2035bc1547d2ed27ab09850120 Mon Sep 17 00:00:00 2001
From: Guilhem Moulin <guilhem@fripost.org>
Date: Wed, 13 Nov 2019 04:16:48 +0100
Subject: Test suite: add new test for pullimap(1).

This adds a dependency on Dovecot's LMTPd, which will bind to
to TCP port 10024 on the loopback interface.
---
 pullimap | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'pullimap')

diff --git a/pullimap b/pullimap
index 3d1a0ec..1dc4b9e 100755
--- a/pullimap
+++ b/pullimap
@@ -29,7 +29,7 @@ use Errno 'EINTR';
 use Fcntl qw/O_CREAT O_RDWR O_DSYNC F_SETLK F_WRLCK SEEK_SET F_GETFD F_SETFD FD_CLOEXEC/;
 use Getopt::Long qw/:config posix_default no_ignore_case gnu_getopt auto_version/;
 use List::Util 'first';
-use Socket qw/PF_INET PF_INET6 SOCK_STREAM/;
+use Socket qw/PF_INET PF_INET6 SOCK_STREAM IPPROTO_TCP/;
 
 use lib 'lib';
 use Net::IMAP::InterIMAP 0.0.5 qw/xdg_basedir read_config compact_set/;
@@ -146,8 +146,7 @@ sub sendmail($$) {
                      : $fam == PF_INET6 ? Socket::pack_sockaddr_in6($port, $addr)
                      : die;
 
-        my $proto = getprotobyname("tcp") // die;
-        socket($SMTP, $fam, SOCK_STREAM, $proto) or die "socket: $!";
+        socket($SMTP, $fam, SOCK_STREAM, IPPROTO_TCP) or die "socket: $!";
         until (connect($SMTP, $sockaddr)) {
             next if $! == EINTR; # try again if connect(2) was interrupted by a signal
             die "connect: $!";
-- 
cgit v1.2.3