forked from lix-project/lix
* Doh.
This commit is contained in:
parent
5adbb0aabe
commit
42043953c3
|
@ -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'"; }
|
||||||
|
|
|
@ -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'"; }
|
||||||
|
|
Loading…
Reference in a new issue