Add a couple fixes for older perls

diff --git a/lib/File/KDBX.pm b/lib/File/KDBX.pm
index 2dcf3414c5825fa5d9b879674bc6c31853763edb..3f52d6cfdf2855461a8b7519e7343822cd061605 100644 (file)
--- a/lib/File/KDBX.pm
+++ b/lib/File/KDBX.pm
@@ -15,7 +15,6 @@ use Ref::Util qw(is_ref is_arrayref is_plain_hashref);
 use Scalar::Util qw(blessed refaddr);
 use Time::Piece;
 use boolean;
-use warnings::register;
 use namespace::clean;
 
 our $VERSION = '999.999'; # VERSION

diff --git a/lib/File/KDBX/Error.pm b/lib/File/KDBX/Error.pm
index 6ea064970b850d4f893abbe8cf540b55e1fb518c..fbc6bbd35d7b911db42c705a4e1bf1808da059e7 100644 (file)
--- a/lib/File/KDBX/Error.pm
+++ b/lib/File/KDBX/Error.pm
@@ -15,7 +15,12 @@ our @EXPORT = qw(alert error throw);
 my $WARNINGS_CATEGORY;
 BEGIN {
     $WARNINGS_CATEGORY = 'File::KDBX';
-    warnings::register_categories($WARNINGS_CATEGORY) if warnings->can('register_categories');
+    if (warnings->can('register_categories')) {
+        warnings::register_categories($WARNINGS_CATEGORY);
+    }
+    else {
+        eval qq{package $WARNINGS_CATEGORY; use warnings::register; 1}; ## no critic ProhibitStringyEval
+    }
 }
 
 use overload '""' => 'to_string', cmp => '_cmp';

diff --git a/lib/File/KDBX/IO.pm b/lib/File/KDBX/IO.pm
index 0ea5d9cd665a0fc4a8c52ae08657680e921aaa0d..5d183473b656199a011202782721db69f1f6f98e 100644 (file)
--- 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;