Improve performance more with a cached repo

Once we've cached the whole repo, stop trying to add more files. It
takes a long time if we keep trying to lookup things that are not in
the cache.

2 files changed, 7 insertions, 0 deletions

diff --git a/Perl/Local/VCS_git.pm b/Perl/Local/VCS_git.pm
index 51ed046fbd6..378ba9d66a5 100644
--- a/Perl/Local/VCS_git.pm
+++ b/Perl/Local/VCS_git.pm
@@ -143,6 +143,12 @@ sub cache_file {
     my $file = shift;
     
     _debug "cache_file($file)";
+
+    if ($self->{REPO_CACHED}) {
+	_debug "cache_file() returning early - whole repo already cached";
+	return;
+    }
+
     if ($self->{CACHE}{"$file"}) {
 	_debug "$file is already cached...";
 	_debug "cache_file($file) returning early";
diff --git a/vcs-test.pl b/vcs-test.pl
index 0870c62bcf0..05a27bcf8c1 100755
--- a/vcs-test.pl
+++ b/vcs-test.pl
@@ -43,6 +43,7 @@ $VCS->cache_file($file);
 $VCS->cache_file($file);
 $VCS->cache_repo();
 $VCS->cache_repo();
+$VCS->cache_file($file);
 print " ... done!\n";
 
 ########