git-svn: Set svn.authorsfile to an absolute path when cloning

alexmv · Eric Wong · commit 2bc35dcbf7ed · 2009-12-08T20:38:39.000-08:00
If --authors-file is passed a relative path, cloning will work, but
future `git svn fetch`es will fail to locate the authors file
correctly.  Thus, use File::Spec-&gt;rel2abs to determine an absolute
path for the authors file before setting it.

Signed-off-by: Alex Vandiver &lt;alex@chmrr.net&gt;
Acked-by: Eric Wong &lt;normalperson@yhbt.net&gt;
diff --git a/git-svn.perl b/git-svn.perl
@@ -392,9 +392,11 @@ sub cmd_clone {
 		$path = $url;
 	}
 	$path = basename($url) if !defined $path || !length $path;
+	my $authors_absolute = $_authors ? File::Spec->rel2abs($_authors) : "";
 	cmd_init($url, $path);
 	Git::SVN::fetch_all($Git::SVN::default_repo_id);
-	command_oneline('config', 'svn.authorsfile', $_authors) if $_authors;
+	command_oneline('config', 'svn.authorsfile', $authors_absolute)
+	    if $_authors;
 }
 
 sub cmd_init {

Original file line number	Diff line number	Diff line change
`@@ -392,9 +392,11 @@ sub cmd_clone {`
`392`	`392`	`$path = $url;`
`393`	`393`	`}`
`394`	`394`	`$path = basename($url) if !defined $path \|\| !length $path;`
	`395`	`+ my $authors_absolute = $_authors ? File::Spec->rel2abs($_authors) : "";`
`395`	`396`	`cmd_init($url, $path);`
`396`	`397`	`Git::SVN::fetch_all($Git::SVN::default_repo_id);`
`397`		`- command_oneline('config', 'svn.authorsfile', $_authors) if $_authors;`
	`398`	`+ command_oneline('config', 'svn.authorsfile', $authors_absolute)`
	`399`	`+ if $_authors;`
`398`	`400`	`}`
`399`	`401`
`400`	`402`	`sub cmd_init {`