hashl list: Print header with version/readsize info

1 files changed, 6 insertions, 0 deletions

diff --git a/bin/hashl b/bin/hashl
index 85302fa..985a263 100755
--- a/bin/hashl
+++ b/bin/hashl
@@ -318,6 +318,12 @@ sub cmd_info {
 }
 
 sub cmd_list {
+	printf(
+		"# hashl v%s   Read Size %d bytes (%d KiB)\n",
+		$VERSION,
+		$db->{'config'}->{'read_size'},
+		$db->{'config'}->{'read_size'} / 1024,
+	);
 	for my $name (sort keys %{$db->{'files'}}) {
 		my $file = $db->{'files'}->{$name};
 		printf("%s %s\n", $file->{'hash'}, $name);