From: Jonathan Nieder Date: Mon, 17 Sep 2012 09:08:20 GMT Subject: [FYI/PATCH 1/5] Git::SVN: introduce path accessor Message-ID: <20120917090820.GB358@elie.Belkin> In-Reply-To: <20120917090435.GA358@elie.Belkin> From: Michael G. Schwern Date: Fri, 27 Jul 2012 13:00:48 -0700 Each Git::SVN handle has a (base) URL and a (relative) path pointing to the top-level directory of the branch it handles. Introduce a getter and setter for the path as preparation for automatically canonicalizing it when reading or writing. For example, instead of $oldpath = $gs->{path}; $gs->{path} = $url; $gs->{path} =~ s!^\Q$min_url\E(/|$)!!; now you can write $oldpath = $gs->path; $url =~ s!^\Q$min_url\E(/|$)!!; $gs->path($url); [jn: split from a larger patch] Signed-off-by: Eric Wong Signed-off-by: Jonathan Nieder --- perl/Git/SVN.pm | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/perl/Git/SVN.pm b/perl/Git/SVN.pm index b8b34744..268e0e84 100644 --- a/perl/Git/SVN.pm +++ b/perl/Git/SVN.pm @@ -2282,6 +2282,18 @@ sub _new { map_root => "$dir/.rev_map", repo_id => $repo_id }, $class; } +sub path { + my $self = shift; + + if (@_) { + my $path = shift; + $self->{path} = $path; + return; + } + + return $self->{path}; +} + # for read-only access of old .rev_db formats sub unlink_rev_db_symlink { my ($self) = @_; -- 1.7.10.4