Be sure to not lose $@ when loading KDBX files

[chaz/p5-File-KDBX] / lib / File / KDBX / Safe.pm

diff --git a/lib/File/KDBX/Safe.pm b/lib/File/KDBX/Safe.pm
index 0e445c619154f95692be39b24062fbc150c8a500..8e307c25743f6753db2f9766cdd755047990c69e 100644 (file)
--- a/lib/File/KDBX/Safe.pm
+++ b/lib/File/KDBX/Safe.pm
@@ -48,7 +48,7 @@ sub new {
     return $self;
 }
 
-sub DESTROY { !in_global_destruction and $_[0]->unlock }
+sub DESTROY { local ($., $@, $!, $^E, $?); !in_global_destruction and $_[0]->unlock }
 
 =method clear