* Get the garbage collector to work again.

1 files changed, 25 insertions, 0 deletions

diff --git a/scripts/nix-collect-garbage.in b/scripts/nix-collect-garbage.in
new file mode 100755
index 000000000000..1506416b23a5
--- /dev/null
+++ b/scripts/nix-collect-garbage.in
@@ -0,0 +1,25 @@
+#! /usr/bin/perl -w
+
+my $linkdir = "@localstatedir@/nix/links";
+my $storedir = "@prefix@/store";
+
+my %alive;
+
+open HASHES, "nix -qrh \$(cat $linkdir/*.hash) |" or die "in `nix -qrh'";
+while (<HASHES>) {
+	chomp;
+	$alive{$_} = 1;
+}
+close HASHES;
+
+opendir(DIR, $storedir) or die "cannot opendir $storedir: $!";
+my @names = readdir(DIR);
+closedir DIR;
+
+foreach my $name (@names) {
+    next if ($name eq "." || $name eq "..");
+    $name = "$storedir/$name";
+    if (!$alive{$name}) {
+        print "$name\n";
+    }
+}