summaryrefslogtreecommitdiff
path: root/git-cvsimport-script
diff options
context:
space:
mode:
authorLibravatar iso-8859-1?Q?David_K=E5gedal <davidk@lysator.liu.se>2005-08-15 20:18:25 +0200
committerLibravatar Junio C Hamano <junkio@cox.net>2005-08-16 12:09:33 -0700
commitb0921331030d52febf52839753eee1b2b9ca1f24 (patch)
tree9c8178838b914a0735503e0c5930bf8bb66d7d0b /git-cvsimport-script
parent[PATCH] cvsgit fixes: spaces in filenames and CVS server dialog woes (diff)
downloadtgif-b0921331030d52febf52839753eee1b2b9ca1f24.tar.xz
[PATCH] Fixed two bugs in git-cvsimport-script.
The git-cvsimport-script had a copule of small bugs that prevented me from importing a big CVS repository. The first was that it didn't handle removed files with a multi-digit primary revision number. The second was that it was asking the CVS server for "F" messages, although they were not handled. I also updated the documentation for that script to correspond to actual flags. Signed-off-by: David K?5gedal <davidk@lysator.liu.se> Signed-off-by: Junio C Hamano <junkio@cox.net>
Diffstat (limited to 'git-cvsimport-script')
-rwxr-xr-xgit-cvsimport-script4
1 files changed, 2 insertions, 2 deletions
diff --git a/git-cvsimport-script b/git-cvsimport-script
index 3b1fb052a6..a389f48965 100755
--- a/git-cvsimport-script
+++ b/git-cvsimport-script
@@ -190,7 +190,7 @@ sub conn {
$self->{'socketo'}->write("Root $repo\n");
# Trial and error says that this probably is the minimum set
- $self->{'socketo'}->write("Valid-responses ok error Valid-requests Mode M Mbinary E F Checked-in Created Updated Merged Removed\n");
+ $self->{'socketo'}->write("Valid-responses ok error Valid-requests Mode M Mbinary E Checked-in Created Updated Merged Removed\n");
$self->{'socketo'}->write("valid-requests\n");
$self->{'socketo'}->flush();
@@ -702,7 +702,7 @@ while(<CVS>) {
push(@new,[$mode, $sha, $fn]); # may be resurrected!
}
unlink($tmpname);
- } elsif($state == 9 and /^\s+(.+?):\d(?:\.\d+)+->(\d(?:\.\d+)+)\(DEAD\)\s*$/) {
+ } elsif($state == 9 and /^\s+(.+?):\d+(?:\.\d+)+->(\d+(?:\.\d+)+)\(DEAD\)\s*$/) {
my $fn = $1;
$fn =~ s#^/+##;
push(@old,$fn);