From 4b1ca25e429a67de4828c029b053dea637732722 Mon Sep 17 00:00:00 2001 From: Matthias Urlichs Date: Mon, 14 Nov 2005 08:31:00 +0100 Subject: [PATCH] Remove trailing slashes SVN dies a messy death when passed a path with trailing slashes. --- git-svnimport.perl | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/git-svnimport.perl b/git-svnimport.perl index cb9afb95..af13fdd8 100755 --- a/git-svnimport.perl +++ b/git-svnimport.perl @@ -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($$$$$$$$) { 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) { -- 2.11.0