Add better thread safety

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

diff --git a/lib/File/KDBX/IO.pm b/lib/File/KDBX/IO.pm
index 5d183473b656199a011202782721db69f1f6f98e..48c8e1908a842be7c8c82ac23b55ad7a8d5de4f8 100644 (file)
--- a/lib/File/KDBX/IO.pm
+++ b/lib/File/KDBX/IO.pm
@@ -43,6 +43,7 @@ sub new {
 
 sub DESTROY {
     return if in_global_destruction;
+    local ($., $@, $!, $^E, $?);
     my $self = shift;
     $self->close;
 }