git-cvsimport-script: more error handling
This commit is contained in:
parent
28537171e7
commit
1750113206
@ -408,6 +408,7 @@ unless(-d $git_dir) {
|
|||||||
|
|
||||||
# populate index
|
# populate index
|
||||||
system('git-read-tree', $last_branch);
|
system('git-read-tree', $last_branch);
|
||||||
|
die "read-tree failed: $?\n" if $?;
|
||||||
|
|
||||||
# Get the last import timestamps
|
# Get the last import timestamps
|
||||||
opendir(D,"$git_dir/refs/heads");
|
opendir(D,"$git_dir/refs/heads");
|
||||||
@ -510,8 +511,8 @@ my $commit = sub {
|
|||||||
print "Parent ID $parent\n" if $opt_v;
|
print "Parent ID $parent\n" if $opt_v;
|
||||||
}
|
}
|
||||||
|
|
||||||
my $pr = IO::Pipe->new();
|
my $pr = IO::Pipe->new() or die "Cannot open pipe: $!\n";
|
||||||
my $pw = IO::Pipe->new();
|
my $pw = IO::Pipe->new() or die "Cannot open pipe: $!\n";
|
||||||
$pid = fork();
|
$pid = fork();
|
||||||
die "Fork: $!\n" unless defined $pid;
|
die "Fork: $!\n" unless defined $pid;
|
||||||
unless($pid) {
|
unless($pid) {
|
||||||
|
Loading…
Reference in New Issue
Block a user