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

Cleanup

This commit is contained in:
Eelco Dolstra 2012-07-11 10:13:16 -04:00
parent ae72be1b8b
commit 5ee8944155
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
scripts/download-from-binary-cache.pl.in
View File

@ -233,7 +233,7 @@ sub getCacheId {
}
sub cachedGetInfoFrom {
sub getCachedInfoFrom {
my ($storePath, $binaryCacheUrl) = @_;
$queryNAR->execute(getCacheId($binaryCacheUrl), basename($storePath));
@ -279,7 +279,7 @@ sub printInfoParallel {
foreach my $storePath (@paths) {
my $found = 0;
foreach my $binaryCacheUrl (@binaryCacheUrls) {
my $info = cachedGetInfoFrom($storePath, $binaryCacheUrl);
my $info = getCachedInfoFrom($storePath, $binaryCacheUrl);
if (defined $info) {
printInfo($storePath, $info);
$found = 1;
@ -323,7 +323,7 @@ sub downloadBinary {
my ($storePath) = @_;
foreach my $binaryCacheUrl (@binaryCacheUrls) {
my $info = cachedGetInfoFrom($storePath, $binaryCacheUrl);
my $info = getCachedInfoFrom($storePath, $binaryCacheUrl);
unless (defined $info) {
next if negativeHit($storePath, $binaryCacheUrl);