diff options
| author | Michael G. Schwern <schwern@pobox.com> | 2012-07-27 20:00:52 (GMT) |
|---|---|---|
| committer | Eric Wong <normalperson@yhbt.net> | 2012-08-02 21:42:59 (GMT) |
| commit | b1ea6c3829109aff412095b889432bf496f46a90 (patch) | |
| tree | fc15660a5f2051122aaebfc1b300855d72d0a6da /perl/Git/SVN | |
| parent | 6a8d999ed4a0030ab7902382ed3b122ce448e581 (diff) | |
| download | git-b1ea6c3829109aff412095b889432bf496f46a90.zip git-b1ea6c3829109aff412095b889432bf496f46a90.tar.gz git-b1ea6c3829109aff412095b889432bf496f46a90.tar.bz2 | |
use Git::SVN{,::RA}->url accessor globally
Note: The structure returned from Git::SVN->read_all_remotes() does not
appear to contain objects, so I'm leaving them alone.
That's everything converted over to the url and path accessors.
No functional change.
[ew: commit title]
Signed-off-by: Eric Wong <normalperson@yhbt.net>
Diffstat (limited to 'perl/Git/SVN')
| -rw-r--r-- | perl/Git/SVN/Migration.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/perl/Git/SVN/Migration.pm b/perl/Git/SVN/Migration.pm index 75d7429..30daf35 100644 --- a/perl/Git/SVN/Migration.pm +++ b/perl/Git/SVN/Migration.pm @@ -177,14 +177,14 @@ sub minimize_connections { my $ra = Git::SVN::Ra->new($url); # skip existing cases where we already connect to the root - if (($ra->{url} eq $ra->{repos_root}) || + if (($ra->url eq $ra->{repos_root}) || ($ra->{repos_root} eq $repo_id)) { - $root_repos->{$ra->{url}} = $repo_id; + $root_repos->{$ra->url} = $repo_id; next; } my $root_ra = Git::SVN::Ra->new($ra->{repos_root}); - my $root_path = $ra->{url}; + my $root_path = $ra->url; $root_path =~ s#^\Q$ra->{repos_root}\E(/|$)##; foreach my $path (keys %$fetch) { my $ref_id = $fetch->{$path}; |