cvsimport: perform string comparison on "HEAD"

diff --git a/git-cvsimport-script b/git-cvsimport-script
index 58ded8a989e28ff74f96e6440fadb9657f5b7a18..8e0e4ac4b2e4bd2f8da3ad4511e5f9af371f9e2b 100755 (executable)
--- a/git-cvsimport-script
+++ b/git-cvsimport-script
@@ -182,7 +182,7 @@ sub _file {
        $self->{'socketo'}->write("Argument $self->{'subdir'}/$fn\n") or return undef;
        $self->{'socketo'}->write("Directory .\n") or return undef;
        $self->{'socketo'}->write("$self->{'repo'}\n") or return undef;
-       $self->{'socketo'}->write("Sticky T1.1\n") or return undef;
+       # $self->{'socketo'}->write("Sticky T1.0\n") or return undef;
        $self->{'socketo'}->write("co\n") or return undef;
        $self->{'socketo'}->flush() or return undef;
        $self->{'lines'} = 0;
@@ -323,6 +323,7 @@ sub getwd() {
 chdir($git_tree);
 
 my $last_branch = "";
+my $orig_branch = "";
 my %branch_date;
 
 my $git_dir = $ENV{"GIT_DIR"} || ".git";
@@ -335,9 +336,14 @@ unless(-d $git_dir) {
        die "Cannot init an empty tree: $?\n" if $?;
 
        $last_branch = $opt_o;
+       $orig_branch = "";
 } else {
        $last_branch = basename(readlink("$git_dir/HEAD"));
-       die "Cannot read the last branch name: $!\n" unless $last_branch;
+       unless($last_branch) {
+               warn "Cannot read the last branch name: $! -- assuming 'master'\n";
+               $last_branch = "master";
+       }
+       $orig_branch = $last_branch;
 
        # Get the last import timestamps
        opendir(D,"$git_dir/refs/heads");
@@ -391,10 +397,28 @@ my($patchset,$date,$author,$branch,$ancestor,$tag,$logmsg);
 my(@old,@new);
 my $commit = sub {
        my $pid;
-       system("git-update-cache","--force-remove","--",@old) if @old;
-       die "Cannot remove files: $?\n" if $?;
-       system("git-update-cache","--add","--",@new) if @new;
-       die "Cannot add files: $?\n" if $?;
+       while(@old) {
+               my @o2;
+               if(@old > 55) {
+                       @o2 = splice(@old,0,50);
+               } else {
+                       @o2 = @old;
+                       @old = ();
+               }
+               system("git-update-cache","--force-remove","--",@o2);
+               die "Cannot remove files: $?\n" if $?;
+       }
+       while(@new) {
+               my @n2;
+               if(@new > 55) {
+                       @n2 = splice(@new,0,50);
+               } else {
+                       @n2 = @new;
+                       @new = ();
+               }
+               system("git-update-cache","--add","--",@n2);
+               die "Cannot add files: $?\n" if $?;
+       }
 
        $pid = open(C,"-|");
        die "Cannot fork: $!" unless defined $pid;
@@ -474,9 +498,6 @@ my $commit = sub {
                        or die "Cannot write tag $branch: $!\n";
                print "Created tag '$tag' on '$branch'\n" if $opt_v;
        }
-
-       @old = ();
-       @new = ();
 };
 
 while(<CVS>) {
@@ -508,7 +529,7 @@ while(<CVS>) {
        } elsif($state == 5 and s/^Ancestor branch:\s+//) {
                s/\s+$//;
                $ancestor = $_;
-               $ancestor = $opt_o if $ancestor == "HEAD";
+               $ancestor = $opt_o if $ancestor eq "HEAD";
                $state = 6;
        } elsif($state == 5) {
                $ancestor = undef;
@@ -558,8 +579,8 @@ while(<CVS>) {
                }
                if(($ancestor || $branch) ne $last_branch) {
                        print "Switching from $last_branch to $branch\n" if $opt_v;
-                       system("git-read-tree -m -u $last_branch $branch");
-                       die "read-tree $branch failed at $branch: $?\n" if $?;
+                       system("git-read-tree","-m","-u","$last_branch","$branch");
+                       die "read-tree failed: $?\n" if $?;
                }
                if($branch ne $last_branch) {
                        unlink("$git_dir/HEAD");
@@ -605,4 +626,19 @@ while(<CVS>) {
 }
 &$commit() if $branch and $state != 11;
 
-print "DONE\n" if $opt_v;
+# Now switch back to the branch we were in before all of this happened
+if($orig_branch) {
+       print "DONE; switching back to $orig_branch\n" if $opt_v;
+} else {
+       $orig_branch = "master";
+       print "DONE; creating $orig_branch branch\n" if $opt_v;
+       system("cp","$git_dir/refs/heads/$opt_o","$git_dir/refs/heads/master")
+               unless -f "$git_dir/refs/heads/master";
+}
+
+system("git-read-tree","-m","-u","$last_branch","$orig_branch");
+die "read-tree failed: $?\n" if $?;
+
+unlink("$git_dir/HEAD");
+symlink("refs/heads/$orig_branch","$git_dir/HEAD");
+