aleksanaa/lix
0
0
Fork 0
forked from lix-project/lix
Code Pull requests Activity

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

Browse source
This commit is contained in:
Eelco Dolstra 2003-10-09 15:38:31 +00:00
parent 6409c215e5
commit 08b7319f5b
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
scripts/nix-collect-garbage.in
View file

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