Welcome to mirror list, hosted at ThFree Co, Russian Federation.

git.kernel.org/pub/scm/git/git.git - Unnamed repository; edit this file 'description' to name the repository.
summaryrefslogtreecommitdiff
path: root/perl
diff options
context:
space:
mode:
authorEric Wong <normalperson@yhbt.net>2012-09-18 04:09:31 +0400
committerEric Wong <normalperson@yhbt.net>2012-10-06 02:48:12 +0400
commitf3045919d148b443158d2b64a5a73375286514c1 (patch)
tree749d9d0abc445bbbf10a47cf6aa9b1fed3cd1b0d /perl
parent9478b11968d61085bb4c4343395b6f52ce06380f (diff)
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 90ec30bfff..049c97bfaf 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}};