Junio C Hamano 19 years ago
parent
commit
6d5410d651
  1. 2
      debian/control
  2. 7
      git-svnimport.perl

2
debian/control vendored

@ -48,7 +48,7 @@ Description: The git content addressable filesystem, GNUArch interoperability @@ -48,7 +48,7 @@ Description: The git content addressable filesystem, GNUArch interoperability

Package: git-cvs
Architecture: all
Depends: ${shlibs:Depends}, ${misc:Depends}, ${perl:Depends}, git-core
Depends: ${shlibs:Depends}, ${misc:Depends}, ${perl:Depends}, git-core, cvsps (>= 2.1)
Suggests: cvs
Description: The git content addressable filesystem, CVS interoperability
This package contains 'git-cvsimport', to import development history from

7
git-svnimport.perl

@ -280,7 +280,8 @@ sub revert_split_path($$) { @@ -280,7 +280,8 @@ sub revert_split_path($$) {
$svnpath = "$branch_name/$branch/$path";
}

return $svnpath
$svnpath =~ s#/+$##;
return $svnpath;
}

sub get_file($$$) {
@ -372,6 +373,10 @@ sub copy_path($$$$$$$$) { @@ -372,6 +373,10 @@ sub copy_path($$$$$$$$) {
my($newrev,$newbranch,$path,$oldpath,$rev,$node_kind,$new,$parents) = @_;

my($srcbranch,$srcpath) = split_path($rev,$oldpath);
unless(defined $srcbranch) {
print "Path not found when copying from $oldpath @ $rev\n";
return;
}
my $therev = branch_rev($srcbranch, $rev);
my $gitrev = $branches{$srcbranch}{$therev};
unless($gitrev) {

Loading…
Cancel
Save