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 <normalperson@yhbt.net>

1 files changed, 2 insertions, 19 deletions

diff --git a/git-svn.perl b/git-svn.perl
index 819d25e..c8a1df3 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;
 }