diff options
author | Eric Wong <normalperson@yhbt.net> | 2007-03-04 00:15:29 -0800 |
---|---|---|
committer | Junio C Hamano <junkio@cox.net> | 2007-03-04 00:34:01 -0800 |
commit | 102a0a2db14cd7604a8a2b6590ecbd6bf3136394 (patch) | |
tree | c2b4a4957a570da716ebf3ae92719145c291d24b /git-svn.perl | |
parent | ae792aa52bb0962079f500bd491363f2b48457b6 (diff) | |
download | git-102a0a2db14cd7604a8a2b6590ecbd6bf3136394.tar.gz |
git-svn: fix show-ignore when not connected to the repository root
It was traversing the entire repository before.
Signed-off-by: Eric Wong <normalperson@yhbt.net>
Signed-off-by: Junio C Hamano <junkio@cox.net>
Diffstat (limited to 'git-svn.perl')
-rwxr-xr-x | git-svn.perl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/git-svn.perl b/git-svn.perl index 41961b59f6..326e89fe03 100755 --- a/git-svn.perl +++ b/git-svn.perl @@ -447,7 +447,7 @@ sub cmd_show_ignore { my $url = (::working_head_info('HEAD'))[0]; my $gs = Git::SVN->find_by_url($url) || Git::SVN->new; my $r = (defined $_revision ? $_revision : $gs->ra->get_latest_revnum); - $gs->traverse_ignore(\*STDOUT, '', $r); + $gs->traverse_ignore(\*STDOUT, $gs->{path}, $r); } sub cmd_multi_init { @@ -1334,7 +1334,7 @@ sub traverse_ignore { my $ra = $self->ra; my ($dirent, undef, $props) = $ra->get_dir($path, $r); my $p = $path; - $p =~ s#^\Q$ra->{svn_path}\E/##; + $p =~ s#^\Q$self->{path}\E(/|$)##; print $fh length $p ? "\n# $p\n" : "\n# /\n"; if (my $s = $props->{'svn:ignore'}) { $s =~ s/[\r\n]+/\n/g; |