undef/git-commit-vandalism
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

git-svn: use path accessor for Git::SVN objects

Browse Source 
The accessors should improve maintainability and enforce
consistent access to Git::SVN objects.

Signed-off-by: Eric Wong <normalperson@yhbt.net>
Reviewed-by: Jonathan Nieder <jrnieder@gmail.com>
This commit is contained in:
Eric Wong 2012-09-18 00:09:31 +00:00
parent 9478b11968
commit f3045919d1
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
git-svn.perl
View File

@ -1314,7 +1314,7 @@ sub get_svnprops {
$path = $cmd_dir_prefix . $path; $path = $cmd_dir_prefix . $path;
fatal("No such file or directory: $path") unless -e $path; fatal("No such file or directory: $path") unless -e $path;
my $is_dir = -d $path ? 1 : 0; my $is_dir = -d $path ? 1 : 0;
$path = join_paths($gs->{path}, $path); $path = join_paths($gs->path, $path);
# canonicalize the path (otherwise libsvn will abort or fail to # canonicalize the path (otherwise libsvn will abort or fail to
# find the file) # find the file)

2
perl/Git/SVN/Ra.pm
View File

@ -416,7 +416,7 @@ sub gs_fetch_loop_common {
} }
$SVN::Error::handler = $err_handler; $SVN::Error::handler = $err_handler;
my %exists = map { $_->{path} => $_ } @$gsv; my %exists = map { $_->path => $_ } @$gsv;
foreach my $r (sort {$a <=> $b} keys %revs) { foreach my $r (sort {$a <=> $b} keys %revs) {
my ($paths, $logged) = @{$revs{$r}}; my ($paths, $logged) = @{$revs{$r}};