From: Eric Wong 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 --- 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 {