X-Git-Url: https://git.octo.it/?a=blobdiff_plain;f=git-cvsimport.perl;fp=git-cvsimport.perl;h=b46469ab32fa5707c8056c5a32db61d7c268e50b;hb=dd27478f092295069b148a4cfcf92fea9a4aab03;hp=24f983434249e0c37b7f2229e73c70b374403dc4;hpb=7ae0dc015dc38ce937bb2c044ff8b4875678e8af;p=git.git

diff --git a/git-cvsimport.perl b/git-cvsimport.perl
index 24f98343..b46469ab 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;