Remove trailing slashes

SVN dies a messy death when passed a path with trailing slashes.
This commit is contained in:
Matthias Urlichs 2005-11-14 08:31:00 +01:00
parent ceae78b438
commit 4b1ca25e42

View file

@ -280,7 +280,8 @@ ($$)
$svnpath = "$branch_name/$branch/$path";
}
return $svnpath
$svnpath =~ s#/+$##;
return $svnpath;
}
sub get_file($$$) {
@ -372,6 +373,10 @@ ($$$$$$$$)
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) {