diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/App/Hashl.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/App/Hashl.pm b/lib/App/Hashl.pm index f0a93ce..8cd5f3c 100644 --- a/lib/App/Hashl.pm +++ b/lib/App/Hashl.pm @@ -115,8 +115,11 @@ sub db_info { my ($self) = @_; return sprintf( - "Database created by hashl v%s\n" . "Read size: %d bytes (%s)\n", + "Database created by hashl v%s\n" . "Read size: %d bytes (%s)\n" . + "contains: %d file%s and %d ignored hash%s\n", $self->db_version, $self->read_size, $self->si_size( $self->read_size ), + scalar($self->files), (scalar($self->files) == 1 ? q{} : 's' ), + scalar($self->ignored), (scalar($self->ignored) == 1 ? q{} : 'es' ), ); } |