git-svn: avoid printing filenames of files we're not tracking

Eric Wong · Junio C Hamano · commit 98526e007e29 · 2006-11-04T23:33:13.000-08:00
This is purely an aesthetic change, we already skip importing of
files that don't affect the subdirectory we import.

Signed-off-by: Eric Wong &lt;normalperson@yhbt.net&gt;
Signed-off-by: Junio C Hamano &lt;junkio@cox.net&gt;
diff --git a/git-svn.perl b/git-svn.perl
@@ -2662,11 +2662,12 @@ sub libsvn_connect {
 }
 
 sub libsvn_get_file {
-	my ($gui, $f, $rev) = @_;
+	my ($gui, $f, $rev, $chg) = @_;
 	my $p = $f;
 	if (length $SVN_PATH > 0) {
 		return unless ($p =~ s#^\Q$SVN_PATH\E/##);
 	}
+	print "\t$chg\t$f\n" unless $_q;
 
 	my ($hash, $pid, $in, $out);
 	my $pool = SVN::Pool->new;
@@ -2769,8 +2770,7 @@ sub libsvn_fetch {
 		$pool->clear;
 	}
 	foreach (@amr) {
-		print "\t$_->[0]\t$_->[1]\n" unless $_q;
-		libsvn_get_file($gui, $_->[1], $rev)
+		libsvn_get_file($gui, $_->[1], $rev, $_->[0]);
 	}
 	close $gui or croak $?;
 	return libsvn_log_entry($rev, $author, $date, $msg, [$last_commit]);
@@ -2848,8 +2848,7 @@ sub libsvn_traverse {
 			if (defined $files) {
 				push @$files, $file;
 			} else {
-				print "\tA\t$file\n" unless $_q;
-				libsvn_get_file($gui, $file, $rev);
+				libsvn_get_file($gui, $file, $rev, 'A');
 			}
 		}
 	}

Original file line number	Diff line number	Diff line change
`@@ -2662,11 +2662,12 @@ sub libsvn_connect {`
`2662`	`2662`	`}`
`2663`	`2663`
`2664`	`2664`	`sub libsvn_get_file {`
`2665`		`- my ($gui, $f, $rev) = @_;`
	`2665`	`+ my ($gui, $f, $rev, $chg) = @_;`
`2666`	`2666`	`my $p = $f;`
`2667`	`2667`	`if (length $SVN_PATH > 0) {`
`2668`	`2668`	`return unless ($p =~ s#^\Q$SVN_PATH\E/##);`
`2669`	`2669`	`}`
	`2670`	`+ print "\t$chg\t$f\n" unless $_q;`
`2670`	`2671`
`2671`	`2672`	`my ($hash, $pid, $in, $out);`
`2672`	`2673`	`my $pool = SVN::Pool->new;`
`@@ -2769,8 +2770,7 @@ sub libsvn_fetch {`
`2769`	`2770`	`$pool->clear;`
`2770`	`2771`	`}`
`2771`	`2772`	`foreach (@amr) {`
`2772`		`- print "\t$_->[0]\t$_->[1]\n" unless $_q;`
`2773`		`- libsvn_get_file($gui, $_->[1], $rev)`
	`2773`	`+ libsvn_get_file($gui, $_->[1], $rev, $_->[0]);`
`2774`	`2774`	`}`
`2775`	`2775`	`close $gui or croak $?;`
`2776`	`2776`	`return libsvn_log_entry($rev, $author, $date, $msg, [$last_commit]);`
`@@ -2848,8 +2848,7 @@ sub libsvn_traverse {`
`2848`	`2848`	`if (defined $files) {`
`2849`	`2849`	`push @$files, $file;`
`2850`	`2850`	`} else {`
`2851`		`- print "\tA\t$file\n" unless $_q;`
`2852`		`- libsvn_get_file($gui, $file, $rev);`
	`2851`	`+ libsvn_get_file($gui, $file, $rev, 'A');`
`2853`	`2852`	`}`
`2854`	`2853`	`}`
`2855`	`2854`	`}`