Use absolute path for dbfile

1 files changed, 5 insertions, 1 deletions

diff --git a/bin/hashl b/bin/hashl
index c444edf..2091d3f 100755
--- a/bin/hashl
+++ b/bin/hashl
@@ -17,7 +17,7 @@ use Time::Progress;
 my $base = getcwd();
 my $rel_paths = 1;
 my $read_size = (2 ** 20) * 4; # 4 MiB
-my $db_file = "$base/.hashl.db";
+my $db_file = '.hashl.db';
 my $total = 0;
 my $cur = 0;
 my $timer;
@@ -30,6 +30,10 @@ GetOptions(
 	'd|database=s' => \$db_file,
 );
 
+if (substr($db_file, 0, 1) ne '/') {
+	$db_file = "${base}/${db_file}";
+}
+
 my $action = $ARGV[0];
 
 if (not defined $action) {