* Use right directories for NAR files and patches.

* Print errors to STDERR.

1 files changed, 5 insertions, 4 deletions

diff --git a/scripts/gc-releases.pl b/scripts/gc-releases.pl
index ed40aded5ed4..9c81a68e835b 100755
--- a/scripts/gc-releases.pl
+++ b/scripts/gc-releases.pl
@@ -1,4 +1,4 @@
-#! /usr/bin/perl -w
+#! /usr/bin/perl -w -I.
 
 use strict;
 use readmanifest;
@@ -19,8 +19,9 @@ sub readDir {
     closedir DIR;
 }
 
-readDir "/mnt/scratchy/eelco/public_html/nix-cache";
-readDir "/mnt/scratchy/eelco/public_html/patches";
+readDir "/data/webserver/dist/nix-cache";
+readDir "/data/webserver/dist/test";
+readDir "/data/webserver/dist/patches";
 
 print STDERR scalar @archives, "\n";
 
@@ -48,7 +49,7 @@ foreach my $narFile (keys %narFiles) {
         die unless defined $basename;
 #        print $basename, "\n";
         $usedFiles{$basename} = 1;
-        die "missing archive `$basename'"
+        print STDERR "missing archive `$basename'\n"
             unless defined $archives{$basename};
     }
 }