use functions moved to File::KDBX::XS module

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

diff --git a/lib/File/KDBX/IO.pm b/lib/File/KDBX/IO.pm
index 0ea5d9cd665a0fc4a8c52ae08657680e921aaa0d..22de9a3badca0ded704b5f2ea16a0ef851071a8f 100644 (file)
--- a/lib/File/KDBX/IO.pm
+++ b/lib/File/KDBX/IO.pm
@@ -5,7 +5,8 @@ use warnings;
 use strict;
 
 use Devel::GlobalDestruction;
-use File::KDBX::Util qw(:empty :bool);
+use File::KDBX::Constants qw(:bool);
+use File::KDBX::Util qw(:empty);
 use List::Util qw(sum0);
 use Ref::Util qw(is_blessed_ref is_ref is_scalarref);
 use Symbol qw(gensym);
@@ -43,6 +44,7 @@ sub new {
 
 sub DESTROY {
     return if in_global_destruction;
+    local ($., $@, $!, $^E, $?);
     my $self = shift;
     $self->close;
 }
@@ -366,7 +368,7 @@ if ($ENV{DEBUG_IO}) {
             my $indented_method = (' ' x $debug{level}) . $method;
             my $self = shift;
             print STDERR sprintf('%-20s -> %s (%s)', $indented_method, $self,
-                join(', ', map { defined ? substr($_, 0, 16) : 'undef' } @_)), "\n";
+                join(', ', map { defined $_ ? substr($_, 0, 16) : 'undef' } @_)), "\n";
             my $r = $orig->($self, @_) // 'undef';
             print STDERR sprintf('%-20s <- %s [%s]', $indented_method, $self, $r), "\n";
             return $r;