diff options
author | Junio C Hamano <junkio@cox.net> | 2006-02-21 01:17:28 +0300 |
---|---|---|
committer | Junio C Hamano <junkio@cox.net> | 2006-02-21 01:24:06 +0300 |
commit | dd27478f092295069b148a4cfcf92fea9a4aab03 (patch) | |
tree | 4ef997728b7bbad6f4e886453a471eaa723b5fd6 | |
parent | 7ae0dc015dc38ce937bb2c044ff8b4875678e8af (diff) |
cvsimport: avoid open "-|" list form for Perl 5.6
Signed-off-by: Junio C Hamano <junkio@cox.net>
-rwxr-xr-x | git-cvsimport.perl | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/git-cvsimport.perl b/git-cvsimport.perl index 24f9834342..b46469ab32 100755 --- a/git-cvsimport.perl +++ b/git-cvsimport.perl @@ -846,8 +846,12 @@ while(<CVS>) { 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; |