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

* Doh.

This commit is contained in:
Eelco Dolstra 2008-08-04 13:15:47 +00:00
parent 5adbb0aabe
commit 42043953c3
2 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
scripts/copy-from-other-stores.pl.in
View File

@ -73,6 +73,7 @@ if ($ARGV[0] eq "--query") {
print "$deriver\n";
print scalar @references, "\n";
print "$_\n" foreach @references;
print "0\n"; # !!! showing size not supported (yet)
}
else { die "unknown command `$cmd'"; }

2
scripts/download-using-manifests.pl.in
View File

@ -55,6 +55,8 @@ if ($ARGV[0] eq "--query") {
my @references = split " ", $info->{references};
print scalar @references, "\n";
print "$_\n" foreach @references;
my $size = $info->{size} or 0;
print "$size\n";
}
else { die "unknown command `$cmd'"; }