forked from lix-project/lix
* Use right directories for NAR files and patches.
* Print errors to STDERR.
This commit is contained in:
parent
f0d6318dd1
commit
fcec32a2c5
|
@ -1,4 +1,4 @@
|
||||||
#! /usr/bin/perl -w
|
#! /usr/bin/perl -w -I.
|
||||||
|
|
||||||
use strict;
|
use strict;
|
||||||
use readmanifest;
|
use readmanifest;
|
||||||
|
@ -19,8 +19,9 @@ sub readDir {
|
||||||
closedir DIR;
|
closedir DIR;
|
||||||
}
|
}
|
||||||
|
|
||||||
readDir "/mnt/scratchy/eelco/public_html/nix-cache";
|
readDir "/data/webserver/dist/nix-cache";
|
||||||
readDir "/mnt/scratchy/eelco/public_html/patches";
|
readDir "/data/webserver/dist/test";
|
||||||
|
readDir "/data/webserver/dist/patches";
|
||||||
|
|
||||||
print STDERR scalar @archives, "\n";
|
print STDERR scalar @archives, "\n";
|
||||||
|
|
||||||
|
@ -48,7 +49,7 @@ foreach my $narFile (keys %narFiles) {
|
||||||
die unless defined $basename;
|
die unless defined $basename;
|
||||||
# print $basename, "\n";
|
# print $basename, "\n";
|
||||||
$usedFiles{$basename} = 1;
|
$usedFiles{$basename} = 1;
|
||||||
die "missing archive `$basename'"
|
print STDERR "missing archive `$basename'\n"
|
||||||
unless defined $archives{$basename};
|
unless defined $archives{$basename};
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in a new issue