* Doh.
This commit is contained in:
		
							parent
							
								
									5adbb0aabe
								
							
						
					
					
						commit
						42043953c3
					
				
					 2 changed files with 3 additions and 0 deletions
				
			
		| 
						 | 
				
			
			@ -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…
	
	Add table
		Add a link
		
	
		Reference in a new issue