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