From: Eric Wong <normalperson@yhbt.net>
Date: Fri, 12 Jan 2007 01:58:39 +0000 (-0800)
Subject: git-svn: convert show-ignore over to Git::SVN
X-Git-Tag: v1.5.1-rc1~248
X-Git-Url: http://git.tremily.us/?a=commitdiff_plain;h=5969cbe13c7e65db6441632d58e7dee40795a980;p=git.git

git-svn: convert show-ignore over to Git::SVN

Signed-off-by: Eric Wong <normalperson@yhbt.net>
---

diff --git a/git-svn.perl b/git-svn.perl
index 02786f1a6..e0bccbcdc 100755
--- a/git-svn.perl
+++ b/git-svn.perl
@@ -121,7 +121,7 @@ my %cmd = (
 			%cmt_opts, %fc_opts } ],
 	'set-tree' => [ \&commit, "Set an SVN repository to a git tree-ish",
 			{	'stdin|' => \$_stdin, %cmt_opts, %fc_opts, } ],
-	'show-ignore' => [ \&show_ignore, "Show svn:ignore listings",
+	'show-ignore' => [ \&cmd_show_ignore, "Show svn:ignore listings",
 			{ 'revision|r=i' => \$_revision } ],
 	rebuild => [ \&rebuild, "Rebuild git-svn metadata (after git clone)",
 			{ 'copy-remote|remote=s' => \$_cp_remote,
@@ -537,12 +537,10 @@ sub dcommit {
 	command_noisy(@finish, $gs);
 }
 
-sub show_ignore {
-	$SVN_URL ||= file_to_s("$GIT_SVN_DIR/info/url");
-	my $repo;
-	$SVN ||= Git::SVN::Ra->new($SVN_URL);
-	my $r = defined $_revision ? $_revision : $SVN->get_latest_revnum;
-	libsvn_traverse_ignore(\*STDOUT, '', $r);
+sub cmd_show_ignore {
+	my $gs = Git::SVN->new;
+	my $r = (defined $_revision ? $_revision : $gs->ra->get_latest_revnum);
+	$gs->traverse_ignore(\*STDOUT, '', $r);
 }
 
 sub graft_branches {