[FYI/PATCH 4/5] Git::SVN::_new: use accessor to write path field
- From
Jonathan Nieder <jrnieder@gmail.com>
- Date
- Sep 17, 2012, 09:12 UTC
- Message-ID
- <20120917091234.GE358@elie.Belkin>
- In-Reply-To
- <20120917090435.GA358@elie.Belkin>
From: Michael G. Schwern <schwern@pobox.com> Date: Fri, 27 Jul 2012 13:00:48 -0700
If some day the setter is taught to canonicalize paths, make sure the path gets canonicalized at construction time, too.
[jn: split from a larger patch]
Signed-off-by: Eric Wong <normalperson@yhbt.net> Signed-off-by: Jonathan Nieder <jrnieder@gmail.com> --- perl/Git/SVN.pm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/perl/Git/SVN.pm b/perl/Git/SVN.pm index 826a7fa6..3aa20109 100644 --- a/perl/Git/SVN.pm +++ b/perl/Git/SVN.pm @@ -2280,10 +2280,12 @@ sub _new { $_[3] = $path = '' unless (defined $path); mkpath([$dir]); - bless { + my $obj = bless { ref_id => $ref_id, dir => $dir, index => "$dir/index", - path => $path, config => "$ENV{GIT_DIR}/svn/config", + config => "$ENV{GIT_DIR}/svn/config", map_root => "$dir/.rev_map", repo_id => $repo_id }, $class; + $obj->path($path); + return $obj; } sub path {
-- 1.7.10.4