diff options
| author | Eric Wong <e@80x24.org> | 2021-03-19 20:56:33 -0400 |
|---|---|---|
| committer | Eric Wong <e@80x24.org> | 2021-03-20 02:30:35 +0000 |
| commit | 8d77e9e1ac618c5fb33492200ee50fd1b12a7b57 (patch) | |
| tree | ab88e0bcb72621e12790e2f2e07dcf5812096248 | |
| parent | af25645f39a68b02f72d9acd4ed09deb2e995dec (diff) | |
| download | public-inbox-8d77e9e1ac618c5fb33492200ee50fd1b12a7b57.tar.gz | |
Redundant slashes look ugly in strace(1) output.
| -rw-r--r-- | lib/PublicInbox/LeiToMail.pm | 2 | ||||
| -rw-r--r-- | 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; |