diff options
author | Eric Wong <e@80x24.org> | 2021-06-22 10:04:36 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2021-06-22 18:54:28 +0000 |
commit | a5be5d6f2db0b56dcc1d6034071458d75006670c (patch) | |
tree | bb615d4d0d987a2d6e998bd30c10a8f2f14334df /lib/PublicInbox/LEI.pm | |
parent | 8e112fe221a74c2689c0a43576ed766deb0397e4 (diff) | |
download | public-inbox-a5be5d6f2db0b56dcc1d6034071458d75006670c.tar.gz |
This is for consistency with the open() at initial accept, in case we hit a code path which expects Perl directory handles rather than "file handles". Both work with the chdir() perlop (fchdir(2), in our case).
Diffstat (limited to 'lib/PublicInbox/LEI.pm')
-rw-r--r-- | lib/PublicInbox/LEI.pm | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/lib/PublicInbox/LEI.pm b/lib/PublicInbox/LEI.pm index 546fa773..cffe4dce 100644 --- a/lib/PublicInbox/LEI.pm +++ b/lib/PublicInbox/LEI.pm @@ -762,11 +762,7 @@ sub dispatch { next if $d eq ''; # same as git(1) chdir $d or return fail($self, "cd $d: $!"); } - if (delete $self->{3}) { # update cwd for rel2abs - opendir my $dh, '.' or - return fail($self, "opendir . $!"); - $self->{3} = $dh; - } + open $self->{3}, '.' or return fail($self, "open . $!"); } $cb->($self, @argv); } elsif (grep(/\A-/, $cmd, @argv)) { # --help or -h only |