hashl: Option to change read_size

1 files changed, 2 insertions, 1 deletions

diff --git a/bin/hashl b/bin/hashl
index 2091d3f..d0ecddf 100755
--- a/bin/hashl
+++ b/bin/hashl
@@ -27,7 +27,8 @@ my $VERSION = '0.1';
 my $db;
 
 GetOptions(
-	'd|database=s' => \$db_file,
+	'd|database=s'  => \$db_file,
+	's|read-size=d' => sub { $read_size = $_[0] * 1024 },
 );
 
 if (substr($db_file, 0, 1) ne '/') {