[PATCH] lei_to_mail: cwd-agnostic Maildir wakeup

[PATCH] lei_to_mail: cwd-agnostic Maildir wakeup

[Eric Wong]

Since we don't have *at() syscalls readily available to us,
lei-daemon may call ->poke_dst in the wrong relative directory.
Despite not having *at() syscalls, we can still capture the
"$MAILDIR/cur" directory handle at pre_augment time so we can
reliably call futimes(2) on it using the `utime' perlop.
---
 lib/PublicInbox/LeiToMail.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lib/PublicInbox/LeiToMail.pm b/lib/PublicInbox/LeiToMail.pm
index 0fa0bd9a..8b2f82dc 100644
--- a/lib/PublicInbox/LeiToMail.pm
+++ b/lib/PublicInbox/LeiToMail.pm
@@ -371,6 +371,8 @@ sub _pre_augment_maildir {
 		File::Path::mkpath($d);
 		-d $d or die "$d is not a directory";
 	}
+	# for utime, so no opendir
+	open $self->{poke_dh}, '<', "${dst}cur" or die "open ${dst}cur: $!";
 }
 
 sub _do_augment_maildir {
@@ -588,7 +590,7 @@ sub poke_dst {
 	my ($self) = @_;
 	if ($self->{base_type} eq 'maildir') {
 		my $t = time + 1;
-		utime($t, $t, $self->{dst} . 'cur');
+		utime($t, $t, $self->{poke_dh}) or warn "futimes: $!";
 	}
 }