From c2d52326cf091a82635f1332c6133558d92f9463 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Wed, 18 May 2011 02:43:27 +0200 Subject: Fix hashl info --- bin/hashl | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/bin/hashl b/bin/hashl index 344dd9d..60c383e 100755 --- a/bin/hashl +++ b/bin/hashl @@ -119,13 +119,18 @@ sub db_info { sub file_info { my ($file) = @_; + my $entry = $hashl->file($file); + + if (not $entry) { + die("No such file in database\n"); + } printf( "File: %s\nSize: %d bytes (%s)\nHash: %s\n", $file, - $hashl->file($file)->{size}, - $hashl->si_size($hashl->file($file)->{size}), - $hashl->files($file)->{hash}, + $entry->{size}, + $hashl->si_size($entry->{size}), + $entry->{hash}, ); } -- cgit v1.2.3