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

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'"; }

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'"; }