rerere: avoid open "-|" list form for Perl 5.6
Signed-off-by: Junio C Hamano <junkio@cox.net>
This commit is contained in:
parent
2a86ec46da
commit
fedd273b75
@ -131,7 +131,11 @@ sub record_preimage {
|
|||||||
sub find_conflict {
|
sub find_conflict {
|
||||||
my $in;
|
my $in;
|
||||||
local $/ = "\0";
|
local $/ = "\0";
|
||||||
open $in, '-|', qw(git ls-files -z -u) or die "$!: ls-files";
|
my $pid = open($in, '-|');
|
||||||
|
die "$!" unless defined $pid;
|
||||||
|
if (!$pid) {
|
||||||
|
exec(qw(git ls-files -z -u)) or die "$!: ls-files";
|
||||||
|
}
|
||||||
my %path = ();
|
my %path = ();
|
||||||
my @path = ();
|
my @path = ();
|
||||||
while (<$in>) {
|
while (<$in>) {
|
||||||
|
Loading…
Reference in New Issue
Block a user