X-Git-Url: https://git.octo.it/?a=blobdiff_plain;f=git-cvsimport-script;h=3e6d22e74201360fd7520f7b52e91d76e4065572;hb=fc6e714c838846aad566528f6ada904651c514f9;hp=9773891b5ddbafbbaea4425f594b131679dfa5b7;hpb=28537171e7ec23c8677ea6e77c208583f95caa28;p=git.git

diff --git a/git-cvsimport-script b/git-cvsimport-script
index 9773891b..3e6d22e7 100755
--- a/git-cvsimport-script
+++ b/git-cvsimport-script
@@ -359,8 +359,6 @@ sub pmode($) {
 	return $m;
 }
 
-my $tmpcv = "/var/cache/cvs";
-
 sub getwd() {
 	my $pwd = `pwd`;
 	chomp $pwd;
@@ -408,6 +406,7 @@ unless(-d $git_dir) {
 
 	# populate index
 	system('git-read-tree', $last_branch);
+	die "read-tree failed: $?\n" if $?;
 
 	# Get the last import timestamps
 	opendir(D,"$git_dir/refs/heads");
@@ -510,8 +509,8 @@ my $commit = sub {
 		print "Parent ID $parent\n" if $opt_v;
 	}
 
-	my $pr = IO::Pipe->new();
-	my $pw = IO::Pipe->new();
+	my $pr = IO::Pipe->new() or die "Cannot open pipe: $!\n";
+	my $pw = IO::Pipe->new() or die "Cannot open pipe: $!\n";
 	$pid = fork();
 	die "Fork: $!\n" unless defined $pid;
 	unless($pid) {