git-svn: Don't call git-repack anymore

In a moment, we'll start calling git-gc --auto instead, since it is a
better fit to what we're trying to accomplish.

The command line options are still accepted, but don't have any
effect, and we warn the user about that.

Signed-off-by: Karl Hasselström <kha@treskal.com>
Acked-by: Eric Wong <normalperson@yhbt.net>
Signed-off-by: Junio C Hamano <gitster@pobox.com>

diff --git a/git-svn.perl b/git-svn.perl
index 75e97cc72fb7906f098717797eb1ac0303ef2a19..074068c64b7d7cf2a049f4b3dcd59db9746a3785 100755 (executable)
--- a/git-svn.perl
+++ b/git-svn.perl
@@ -1247,7 +1247,6 @@ package Git::SVN;
 use File::Copy qw/copy/;
 use IPC::Open3;
 
 use File::Copy qw/copy/;
 use IPC::Open3;
 

-my $_repack_nr;

 # properties that we do not log:
 my %SKIP_PROP;
 BEGIN {
 # properties that we do not log:
 my %SKIP_PROP;
 BEGIN {


@@ -1408,9 +1407,9 @@ sub read_all_remotes {
 }
 
 sub init_vars {
 }
 
 sub init_vars {

-       $_repack = 1000 unless (defined $_repack && $_repack > 0);
-       $_repack_nr = $_repack;
-       $_repack_flags ||= '-d';
+       if (defined $_repack || defined $_repack_flags) {
+              warn "Repack options are obsolete; they have no effect.\n";
+       }

 }
 
 sub verify_remotes_sanity {
 }
 
 sub verify_remotes_sanity {


@@ -2149,13 +2148,6 @@ sub do_git_commit {
                                   0, $self->svm_uuid);
        }
        print " = $commit ($self->{ref_id})\n";
                                   0, $self->svm_uuid);
        }
        print " = $commit ($self->{ref_id})\n";

-       if ($_repack && (--$_repack_nr == 0)) {
-               $_repack_nr = $_repack;
-               # repack doesn't use any arguments with spaces in them, does it?
-               print "Running git repack $_repack_flags ...\n";
-               command_noisy('repack', split(/\s+/, $_repack_flags));
-               print "Done repacking\n";
-       }

        return $commit;
 }
 
        return $commit;
 }