From: Junio C Hamano Date: Mon, 20 Feb 2006 22:19:15 GMT Subject: [PATCH] cvsimport: avoid open "-|" list form for Perl 5.6 Message-ID: <7v8xs5ad24.fsf_-_@assigned-by-dhcp.cox.net> In-Reply-To: <7vr75xbs8w.fsf_-_@assigned-by-dhcp.cox.net> Signed-off-by: Junio C Hamano --- * Fifth of the four patch series. I cannot count ;-). git-cvsimport.perl | 6 +++++- 1 files changed, 5 insertions(+), 1 deletions(-) eb815c1bb8a40ae18d80e99f8547137ea05318bf diff --git a/git-cvsimport.perl b/git-cvsimport.perl index 24f9834..b46469a 100755 --- a/git-cvsimport.perl +++ b/git-cvsimport.perl @@ -846,8 +846,12 @@ while() { print "Drop $fn\n" if $opt_v; } else { print "".($init ? "New" : "Update")." $fn: $size bytes\n" if $opt_v; - open my $F, '-|', "git-hash-object -w $tmpname" + my $pid = open(my $F, '-|'); + die $! unless defined $pid; + if (!$pid) { + exec("git-hash-object", "-w", $tmpname) or die "Cannot create object: $!\n"; + } my $sha = <$F>; chomp $sha; close $F; -- 1.2.2.g5be4ea