From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: X-Spam-Checker-Version: SpamAssassin 3.4.2 (2018-09-13) on dcvr.yhbt.net X-Spam-Level: X-Spam-Status: No, score=-4.0 required=3.0 tests=ALL_TRUSTED,BAYES_00 shortcircuit=no autolearn=ham autolearn_force=no version=3.4.2 Received: from localhost (dcvr.yhbt.net [127.0.0.1]) by dcvr.yhbt.net (Postfix) with ESMTP id 292C91F9FC for ; Sat, 20 Mar 2021 00:56:34 +0000 (UTC) From: Eric Wong To: meta@public-inbox.org Subject: [PATCH] maildir: avoid redundant slashes Date: Fri, 19 Mar 2021 20:56:33 -0400 Message-Id: <20210320005633.7990-1-e@80x24.org> MIME-Version: 1.0 Content-Transfer-Encoding: 8bit List-Id: Redundant slashes look ugly in strace(1) output. --- lib/PublicInbox/LeiToMail.pm | 2 +- lib/PublicInbox/MdirReader.pm | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/lib/PublicInbox/LeiToMail.pm b/lib/PublicInbox/LeiToMail.pm index 5cea73e1..6f386b10 100644 --- a/lib/PublicInbox/LeiToMail.pm +++ b/lib/PublicInbox/LeiToMail.pm @@ -637,7 +637,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->{dst} . 'cur'); } } diff --git a/lib/PublicInbox/MdirReader.pm b/lib/PublicInbox/MdirReader.pm index 06806e80..30e6f8ad 100644 --- a/lib/PublicInbox/MdirReader.pm +++ b/lib/PublicInbox/MdirReader.pm @@ -42,7 +42,7 @@ my %c2kw = ('D' => 'draft', F => 'flagged', R => 'answered', S => 'seen'); sub maildir_each_eml ($$;@) { my ($dir, $cb, @arg) = @_; $dir .= '/' unless substr($dir, -1) eq '/'; - my $pfx = "$dir/new/"; + my $pfx = $dir . 'new/'; if (opendir(my $dh, $pfx)) { while (defined(my $bn = readdir($dh))) { next if substr($bn, 0, 1) eq '.'; @@ -53,7 +53,7 @@ sub maildir_each_eml ($$;@) { $cb->($f, [], $eml, @arg); } } - $pfx = "$dir/cur/"; + $pfx = $dir . 'cur/'; opendir my $dh, $pfx or return; while (defined(my $bn = readdir($dh))) { my $fl = maildir_basename_flags($bn) // next;