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 /lib/PublicInbox/MdirReader.pm | |
parent | af25645f39a68b02f72d9acd4ed09deb2e995dec (diff) | |
download | public-inbox-8d77e9e1ac618c5fb33492200ee50fd1b12a7b57.tar.gz |
Redundant slashes look ugly in strace(1) output.
Diffstat (limited to 'lib/PublicInbox/MdirReader.pm')
-rw-r--r-- | lib/PublicInbox/MdirReader.pm | 4 |
1 files changed, 2 insertions, 2 deletions
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; |