* Follow successors by default (use `--no-successors' to override).

This commit is contained in:
Eelco Dolstra 2003-10-09 15:38:31 +00:00
parent 6409c215e5
commit 08b7319f5b

View file

@ -8,11 +8,11 @@ my $storedir = "@prefix@/store";
my %alive;
my $keepsuccessors = 0;
my $keepsuccessors = 1;
my $invert = 0;
foreach my $arg (@ARGV) {
if ($arg eq "--keep-successors") { $keepsuccessors = 1; }
if ($arg eq "--no-successors") { $keepsuccessors = 0; }
elsif ($arg eq "--invert") { $invert = 1; }
else { die "unknown argument `$arg'" };
}