git-svn: use path accessor for Git::SVN objects
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>
Eric Wong committed
Sep 18, 2012 at 00:09 UTC
f3045919d148b443158d2b64a5a73375286514c1
2 files changed
+2
-2
git-svn.perl
+1
-1
@@ -1314,7 +1314,7 @@ sub get_svnprops {
1314
$path = $cmd_dir_prefix . $path;
1315
fatal("No such file or directory: $path") unless -e $path;
1316
my $is_dir = -d $path ? 1 : 0;
1317
- $path = join_paths($gs->{path}, $path);
1317
+ $path = join_paths($gs->path, $path);
1318
1319
# canonicalize the path (otherwise libsvn will abort or fail to
1320
# find the file)
perl/Git/SVN/Ra.pm
+1
-1
@@ -416,7 +416,7 @@ sub gs_fetch_loop_common {
416
}
417
$SVN::Error::handler = $err_handler;
418
419
- my %exists = map { $_->{path} => $_ } @$gsv;
419
+ my %exists = map { $_->path => $_ } @$gsv;
420
foreach my $r (sort {$a <=> $b} keys %revs) {
421
my ($paths, $logged) = @{$revs{$r}};
422