diff options
| author | Sven Verdoolaege <skimo@kotnet.org> | 2005-07-04 17:36:25 +0200 |
|---|---|---|
| committer | Sven Verdoolaege <skimo@kotnet.org> | 2005-07-04 17:36:25 +0200 |
| commit | 175011320690864d1483e7eec19da7f71d14dad7 (patch) | |
| tree | de460f7ace40c426fe424c8e2bf37ebed90467c8 /git-cvsimport-script | |
| parent | 28537171e7ec23c8677ea6e77c208583f95caa28 (diff) | |
| download | git-175011320690864d1483e7eec19da7f71d14dad7.tar.gz git-175011320690864d1483e7eec19da7f71d14dad7.tar.xz | |
git-cvsimport-script: more error handling
Diffstat (limited to 'git-cvsimport-script')
| -rwxr-xr-x | git-cvsimport-script | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/git-cvsimport-script b/git-cvsimport-script index 9773891b5..7f93fb3cd 100755 --- a/git-cvsimport-script +++ b/git-cvsimport-script @@ -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) { |