* [PATCH] config: use popen_rd when spawning `git config'
@ 2016-05-23 1:20 7% Eric Wong
0 siblings, 0 replies; 1+ results
From: Eric Wong @ 2016-05-23 1:20 UTC (permalink / raw)
To: meta
We may spawn this in a large server process, so be sure
to take advantage of the optional vfork() support when
for folks who set PERL_INLINE_DIRECTORY.
---
lib/PublicInbox/Config.pm | 7 +++----
1 file changed, 3 insertions(+), 4 deletions(-)
diff --git a/lib/PublicInbox/Config.pm b/lib/PublicInbox/Config.pm
index b38f444..935b044 100644
--- a/lib/PublicInbox/Config.pm
+++ b/lib/PublicInbox/Config.pm
@@ -8,6 +8,7 @@ use warnings;
use base qw/Exporter/;
our @EXPORT_OK = qw/try_cat/;
require PublicInbox::Inbox;
+use PublicInbox::Spawn qw(popen_rd);
use File::Path::Expand qw/expand_filename/;
# returns key-value pairs of config directives in a hash
@@ -77,8 +78,7 @@ sub git_config_dump {
my ($in, $out);
my @cmd = (qw/git config/, "--file=$file", '-l');
my $cmd = join(' ', @cmd);
- my $pid = open(my $fh, '-|', @cmd);
- defined $pid or die "$cmd failed: $!";
+ my $fh = popen_rd(\@cmd);
my %rv;
local $/ = "\n";
foreach my $line (<$fh>) {
@@ -96,8 +96,7 @@ sub git_config_dump {
$rv{$k} = $v;
}
}
- close $fh or die "failed to close ($cmd) pipe: $!";
- $? and warn "$$ $cmd exited with: ($pid) $?";
+ close $fh or die "failed to close ($cmd) pipe: $?";
\%rv;
}
^ permalink raw reply related [relevance 7%]
Results 1-1 of 1 | reverse | options above
-- pct% links below jump to the message on this page, permalinks otherwise --
2016-05-23 1:20 7% [PATCH] config: use popen_rd when spawning `git config' Eric Wong
Code repositories for project(s) associated with this public inbox
https://80x24.org/public-inbox.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).