TakeV
/
guix
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

* 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
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 $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'" };
}