summaryrefslogtreecommitdiff
path: root/perl
diff options
context:
space:
mode:
authorEric Wong <normalperson@yhbt.net>2012-09-18 00:09:31 (GMT)
committerEric Wong <normalperson@yhbt.net>2012-10-05 22:48:12 (GMT)
commitf3045919d148b443158d2b64a5a73375286514c1 (patch)
tree749d9d0abc445bbbf10a47cf6aa9b1fed3cd1b0d /perl
parent9478b11968d61085bb4c4343395b6f52ce06380f (diff)
downloadgit-f3045919d148b443158d2b64a5a73375286514c1.zip
git-f3045919d148b443158d2b64a5a73375286514c1.tar.gz
git-f3045919d148b443158d2b64a5a73375286514c1.tar.bz2
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>
Diffstat (limited to 'perl')
-rw-r--r--perl/Git/SVN/Ra.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl/Git/SVN/Ra.pm b/perl/Git/SVN/Ra.pm
index 90ec30b..049c97b 100644
--- a/perl/Git/SVN/Ra.pm
+++ b/perl/Git/SVN/Ra.pm
@@ -416,7 +416,7 @@ sub gs_fetch_loop_common {
}
$SVN::Error::handler = $err_handler;
- my %exists = map { $_->{path} => $_ } @$gsv;
+ my %exists = map { $_->path => $_ } @$gsv;
foreach my $r (sort {$a <=> $b} keys %revs) {
my ($paths, $logged) = @{$revs{$r}};