diff options
author | Eric Wong <e@80x24.org> | 2021-01-24 22:41:58 -0800 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2021-01-26 18:51:31 +0000 |
commit | da86f10a548d4cce25f91bb4063f82ecbbe441a1 (patch) | |
tree | e19b26c90c73a05fd08f5f9796fb5fcb57563200 /lib/PublicInbox/Spawn.pm | |
parent | 99d3f175072a8ef062ba6335a3ceb267ba89c12b (diff) | |
download | public-inbox-da86f10a548d4cce25f91bb4063f82ecbbe441a1.tar.gz |
Mainly around fork() calls, but some nearby places as well.
Diffstat (limited to 'lib/PublicInbox/Spawn.pm')
-rw-r--r-- | lib/PublicInbox/Spawn.pm | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lib/PublicInbox/Spawn.pm b/lib/PublicInbox/Spawn.pm index 86f66605..ef4885c1 100644 --- a/lib/PublicInbox/Spawn.pm +++ b/lib/PublicInbox/Spawn.pm @@ -352,8 +352,7 @@ sub which ($) { sub spawn ($;$$) { my ($cmd, $env, $opts) = @_; - my $f = which($cmd->[0]); - defined $f or die "$cmd->[0]: command not found\n"; + my $f = which($cmd->[0]) // die "$cmd->[0]: command not found\n"; my @env; $opts ||= {}; @@ -365,7 +364,7 @@ sub spawn ($;$$) { for my $child_fd (0..2) { my $parent_fd = $opts->{$child_fd}; if (defined($parent_fd) && $parent_fd !~ /\A[0-9]+\z/) { - defined(my $fd = fileno($parent_fd)) or + my $fd = fileno($parent_fd) // die "$parent_fd not an IO GLOB? $!"; $parent_fd = $fd; } @@ -374,7 +373,7 @@ sub spawn ($;$$) { my $rlim = []; foreach my $l (@RLIMITS) { - defined(my $v = $opts->{$l}) or next; + my $v = $opts->{$l} // next; my $r = eval "require BSD::Resource; BSD::Resource::$l();"; unless (defined $r) { warn "$l undefined by BSD::Resource: $@\n"; |