save database version, just to be safe

1 files changed, 12 insertions, 1 deletions

diff --git a/lib/App/Hashl.pm b/lib/App/Hashl.pm
index ec779a9..dc5fca5 100644
--- a/lib/App/Hashl.pm
+++ b/lib/App/Hashl.pm
@@ -19,6 +19,7 @@ sub new {
 
 	$ref->{config} = \%conf;
 	$ref->{config}->{read_size} //= ( 2**20 ) * 4;    # 4 MiB
+	$ref->{version} = $VERSION;
 
 	return bless( $ref, $obj );
 }
@@ -28,6 +29,10 @@ sub new_from_file {
 
 	my $ref = retrieve($file);
 
+	if ( not defined $ref->{version} ) {
+		$ref->{version} = '1.00';
+	}
+
 	return bless( $ref, $obj );
 }
 
@@ -52,7 +57,7 @@ sub hash_file {
 	if ( ( stat($file) )[7] == 0 ) {
 		return $digest->hexdigest;
 	}
-	if ($self->{config}->{read_size} == 0) {
+	if ( $self->{config}->{read_size} == 0 ) {
 		$digest->addfile($file);
 		return $digest->hexdigest;
 	}
@@ -102,6 +107,12 @@ sub read_size {
 	return $self->{config}->{read_size};
 }
 
+sub db_version {
+	my ($self) = @_;
+
+	return $self->{version};
+}
+
 sub file {
 	my ( $self, $name ) = @_;