From fce1c73c8c942e6a87b8000f80da7dc735635296 Mon Sep 17 00:00:00 2001
From: Guilhem Moulin <guilhem@fripost.org>
Date: Fri, 11 Dec 2020 12:31:08 +0100
Subject: Update copyright years.

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

(limited to 'pullimap')

diff --git a/pullimap b/pullimap
index 86d80e0..b691272 100755
--- a/pullimap
+++ b/pullimap
@@ -2,7 +2,7 @@
 
 #----------------------------------------------------------------------
 # Pull mails from an IMAP mailbox and deliver them to an SMTP session
-# Copyright © 2016-2019 Guilhem Moulin <guilhem@fripost.org>
+# Copyright © 2016-2020 Guilhem Moulin <guilhem@fripost.org>
 #
 # This program is free software: you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
-- 
cgit v1.2.3


From b70d9b261a6d2849efeb670b53e0ab726a58fb59 Mon Sep 17 00:00:00 2001
From: Guilhem Moulin <guilhem@fripost.org>
Date: Sun, 13 Dec 2020 15:07:30 +0100
Subject: Make error messages more uniform and consistent.

---
 pullimap | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'pullimap')

diff --git a/pullimap b/pullimap
index b691272..8142be8 100755
--- a/pullimap
+++ b/pullimap
@@ -104,7 +104,7 @@ do {
 # Read a UID (32-bits integer) from the statefile, or undef if we're at
 # the end of the statefile
 sub readUID() {
-    my $n = sysread($STATE, my $buf, 4) // die "Can't sysread: $!";
+    my $n = sysread($STATE, my $buf, 4) // die "read: $!";
     return if $n == 0; # EOF
     # file length is a multiple of 4 bytes, and we always read 4 bytes at a time
     die "Corrupted state file!" if $n != 4;
@@ -117,7 +117,7 @@ sub writeUID($) {
     my $offset = 0;
     for ( my $offset = 0
         ; $offset < 4
-        ; $offset += syswrite($STATE, $uid, 4-$offset, $offset) // die "Can't syswrite: $!"
+        ; $offset += syswrite($STATE, $uid, 4-$offset, $offset) // die "write: $!"
     ) {}
     # no need to sync (or flush) since $STATE is opened with O_DSYNC
 }
@@ -333,11 +333,11 @@ sub pull(;$) {
     undef $SMTP;
 
     # update the statefile
-    my $p = sysseek($STATE, 4, SEEK_SET) // die "Can't seek: $!";
+    my $p = sysseek($STATE, 4, SEEK_SET) // die "seek: $!";
     die "Couldn't seek to 4" unless $p == 4; # safety check
     my ($uidnext) = $IMAP->get_cache('UIDNEXT');
     writeUID($uidnext);
-    truncate($STATE, 8) // die "Can't truncate";
+    truncate($STATE, 8) // die "truncate: $!";
 }
 
 do {
-- 
cgit v1.2.3


From 9cbaed6527c3030819976dbe41bfb4392d6a6fa2 Mon Sep 17 00:00:00 2001
From: Guilhem Moulin <guilhem@fripost.org>
Date: Sat, 26 Dec 2020 23:11:11 +0100
Subject: Prepare new release v0.5.5.

---
 pullimap | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'pullimap')

diff --git a/pullimap b/pullimap
index 8142be8..9edbcf7 100755
--- a/pullimap
+++ b/pullimap
@@ -22,7 +22,7 @@ use v5.20.2;
 use strict;
 use warnings;
 
-our $VERSION = '0.5.4';
+our $VERSION = '0.5.5';
 my $NAME = 'pullimap';
 
 use Errno 'EINTR';
@@ -31,7 +31,7 @@ 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 IPPROTO_TCP/;
 
-use Net::IMAP::InterIMAP 0.0.5 qw/xdg_basedir read_config compact_set/;
+use Net::IMAP::InterIMAP 0.5.5 qw/xdg_basedir read_config compact_set/;
 
 # Clean up PATH
 $ENV{PATH} = join ':', qw{/usr/bin /bin};
-- 
cgit v1.2.3