X-Git-Url: https://git.dogcows.com/gitweb?p=chaz%2Fp5-File-KDBX;a=blobdiff_plain;f=lib%2FFile%2FKDBX%2FIO.pm;h=5d183473b656199a011202782721db69f1f6f98e;hp=0ea5d9cd665a0fc4a8c52ae08657680e921aaa0d;hb=dbb5bfee033ceb2600d5017d370b9533f6e6d6f7;hpb=50f1a929d9224b9072b5fae39162a5d943323c5d

diff --git a/lib/File/KDBX/IO.pm b/lib/File/KDBX/IO.pm
index 0ea5d9c..5d18347 100644
--- a/lib/File/KDBX/IO.pm
+++ b/lib/File/KDBX/IO.pm
@@ -366,7 +366,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;