Be sure to not lose $@ when loading KDBX files

[chaz/p5-File-KDBX] / lib / File / KDBX / Loader / V3.pm

diff --git a/lib/File/KDBX/Loader/V3.pm b/lib/File/KDBX/Loader/V3.pm
index f7f951649169e92d99a9a3d6103ac3bbe89a6112..77ad479635abea9c3ea2ea56764f6161619bfb56 100644 (file)
--- a/lib/File/KDBX/Loader/V3.pm
+++ b/lib/File/KDBX/Loader/V3.pm
@@ -152,6 +152,7 @@ sub _read_body {
     }
 
     $self->_read_inner_body($fh);
+    close($fh);
 
     if (my $header_hash = $kdbx->meta->{header_hash}) {
         my $got_header_hash = digest_data('SHA256', $header_data);