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 "$deriver\n";
print scalar @references, "\n"; print scalar @references, "\n";
print "$_\n" foreach @references; print "$_\n" foreach @references;
print "0\n"; # !!! showing size not supported (yet)
} }
else { die "unknown command `$cmd'"; } else { die "unknown command `$cmd'"; }

View file

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