From 061303f0b50a648db8e0af23791fc56181f6bf93 Mon Sep 17 00:00:00 2001 From: Johannes Schindelin Date: Sat, 24 Jun 2006 21:42:20 +0200 Subject: cvsimport: always set $ENV{GIT_INDEX_FILE} to $index{$branch} Also, make sure that the initial git-read-tree is performed. Signed-off-by: Johannes Schindelin --- git-cvsimport.perl | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) (limited to 'git-cvsimport.perl') diff --git a/git-cvsimport.perl b/git-cvsimport.perl index 3b892f970..50f5d9642 100755 --- a/git-cvsimport.perl +++ b/git-cvsimport.perl @@ -470,6 +470,9 @@ my %index; # holds filenames of one index per branch $index{$opt_o} = tmpnam(); $ENV{GIT_INDEX_FILE} = $index{$opt_o}; +system("git-read-tree", $opt_o); +die "read-tree failed: $?\n" if $?; + unless(-d $git_dir) { system("git-init-db"); die "Cannot init the GIT db at $git_tree: $?\n" if $?; @@ -813,17 +816,15 @@ while() { unless ($index{$branch}) { $index{$branch} = tmpnam(); $ENV{GIT_INDEX_FILE} = $index{$branch}; + system("git-read-tree", $branch); + die "read-tree failed: $?\n" if $?; } + # just in case + $ENV{GIT_INDEX_FILE} = $index{$branch}; if ($ancestor) { + print "have ancestor $ancestor" if $opt_v; system("git-read-tree", $ancestor); die "read-tree failed: $?\n" if $?; - } else { - unless ($index{$branch}) { - $index{$branch} = tmpnam(); - $ENV{GIT_INDEX_FILE} = $index{$branch}; - system("git-read-tree", $branch); - die "read-tree failed: $?\n" if $?; - } } } else { # just in case -- cgit v1.2.1