From 983220bcd46e89ee4d2ce0417eb514cd6c062f2d Mon Sep 17 00:00:00 2001 From: Eelco Dolstra Date: Thu, 13 Sep 2012 18:09:20 -0400 Subject: [PATCH] nix-collect-garbage: Support --dry-run --- doc/manual/nix-collect-garbage.xml | 1 + scripts/nix-collect-garbage.in | 9 ++++++--- 2 files changed, 7 insertions(+), 3 deletions(-) diff --git a/doc/manual/nix-collect-garbage.xml b/doc/manual/nix-collect-garbage.xml index 14cf97932..a13e365a4 100644 --- a/doc/manual/nix-collect-garbage.xml +++ b/doc/manual/nix-collect-garbage.xml @@ -26,6 +26,7 @@ + diff --git a/scripts/nix-collect-garbage.in b/scripts/nix-collect-garbage.in index 835213226..bd1860220 100755 --- a/scripts/nix-collect-garbage.in +++ b/scripts/nix-collect-garbage.in @@ -9,10 +9,13 @@ my $profilesDir = "@localstatedir@/nix/profiles"; # Process the command line arguments. my @args = (); my $removeOld = 0; +my $dryRun = 0; for my $arg (@ARGV) { if ($arg eq "--delete-old" || $arg eq "-d") { $removeOld = 1; + } elsif ($arg eq "--dry-run") { + $dryRun = 1; } else { push @args, $arg; } @@ -35,13 +38,13 @@ sub removeOldGenerations { $name = $dir . "/" . $name; if (-l $name && (readlink($name) =~ /link/)) { print STDERR "removing old generations of profile $name\n"; - system("$Nix::Config::binDir/nix-env", "-p", $name, "--delete-generations", "old"); + system("$Nix::Config::binDir/nix-env", "-p", $name, "--delete-generations", "old", $dryRun ? "--dry-run" : ()); } elsif (! -l $name && -d $name) { removeOldGenerations $name; } } - + closedir $dh or die; } @@ -49,4 +52,4 @@ removeOldGenerations $profilesDir if $removeOld; # Run the actual garbage collector. -exec "$Nix::Config::binDir/nix-store", "--gc", @args; +exec "$Nix::Config::binDir/nix-store", "--gc", @args unless $dryRun;