X-Git-Url: https://git.dogcows.com/gitweb?p=chaz%2Fp5-File-KDBX;a=blobdiff_plain;f=lib%2FFile%2FKDBX%2FIO.pm;h=48c8e1908a842be7c8c82ac23b55ad7a8d5de4f8;hp=5d183473b656199a011202782721db69f1f6f98e;hb=81604125cc023132207802b4ae0ab4cea12c17fd;hpb=cfe6ddf632ec8f9ce9569fbf4c7e759160ba3419

diff --git a/lib/File/KDBX/IO.pm b/lib/File/KDBX/IO.pm
index 5d18347..48c8e19 100644
--- 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;
 }