git-cvsimport-script: more error handling
authorSven Verdoolaege <skimo@kotnet.org>
Mon, 4 Jul 2005 15:36:25 +0000 (17:36 +0200)
committerSven Verdoolaege <skimo@kotnet.org>
Mon, 4 Jul 2005 15:36:25 +0000 (17:36 +0200)
git-cvsimport-script

index 9773891b5ddbafbbaea4425f594b131679dfa5b7..7f93fb3cd7ed747c77236dc127dd94d7b7b8a7de 100755 (executable)
@@ -408,6 +408,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 +511,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) {