diff options
| author | iso-8859-1?Q?David_K=E5gedal <davidk@lysator.liu.se> | 2005-08-15 20:18:25 +0200 |
|---|---|---|
| committer | Junio C Hamano <junkio@cox.net> | 2005-08-16 12:09:33 -0700 |
| commit | b0921331030d52febf52839753eee1b2b9ca1f24 (patch) | |
| tree | 9c8178838b914a0735503e0c5930bf8bb66d7d0b /git-cvsimport-script | |
| parent | 8b8840e046923f34d6b3e76adc44106f9e63ab4c (diff) | |
| download | git-b0921331030d52febf52839753eee1b2b9ca1f24.tar.gz git-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-x | git-cvsimport-script | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/git-cvsimport-script b/git-cvsimport-script index 3b1fb052a..a389f4896 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); |