From e20bea654513aa7eba7e356994fa56cc90bb5b6d Mon Sep 17 00:00:00 2001 From: Eric Wong Date: Fri, 9 Feb 2007 02:32:48 -0800 Subject: git-svn: remove some noisy debugging messages We don't need them anymore, all the rough points of the --follow-parent implementation have been worked out. The only improvement in the future will probably be --follow-parent-harder, which will track subdirectories and follow individual file history (so annotate/blame can be complete); but that is still a ways off. Signed-off-by: Eric Wong --- git-svn.perl | 21 ++------------------- 1 file changed, 2 insertions(+), 19 deletions(-) (limited to 'git-svn.perl') diff --git a/git-svn.perl b/git-svn.perl index 819d25e289..c8a1df3651 100755 --- a/git-svn.perl +++ b/git-svn.perl @@ -692,8 +692,6 @@ sub resolve_local_globs { next; } } else { - warn "Globbed ($path->{glob}:$ref->{glob}): ", - "$pathname == $refname\n"; $fetch->{$pathname} = $refname; } } @@ -1179,8 +1177,8 @@ sub find_parent_branch { last if $i; unshift(@a_path_components, pop(@b_path_components)); } - goto not_found unless defined $i; - my $branch_from = $i->{copyfrom_path} or goto not_found; + return undef unless defined $i; + my $branch_from = $i->{copyfrom_path} or return undef; if (@a_path_components) { print STDERR "branch_from: $branch_from => "; $branch_from .= '/'.join('/', @a_path_components); @@ -1247,21 +1245,6 @@ sub find_parent_branch { print STDERR "Successfully followed parent\n"; return $self->make_log_entry($rev, [$parent], $ed); } -not_found: - print STDERR "Branch parent for path: '/", - $self->rel_path, "' @ r$rev not found:\n"; - return undef unless $paths; - print STDERR "Changed paths:\n"; - foreach my $x (sort keys %$paths) { - my $p = $paths->{$x}; - print STDERR "\t$p->{action}\t$x"; - if ($p->{copyfrom_path}) { - print STDERR "(from $p->{copyfrom_path}: ", - "$p->{copyfrom_rev})"; - } - print STDERR "\n"; - } - print STDERR '-'x72, "\n"; return undef; } -- cgit v1.2.3