Fix compatibility with older perls

[chaz/p5-File-KDBX] / lib / File / KDBX / KDF / AES.pm

diff --git a/lib/File/KDBX/KDF/AES.pm b/lib/File/KDBX/KDF/AES.pm
index 161c08615f2dabe205a38d715a07d03efad25797..548f8620d5b1185e0a49ab59d4840ce24155d361 100644 (file)
--- a/lib/File/KDBX/KDF/AES.pm
+++ b/lib/File/KDBX/KDF/AES.pm
@@ -19,8 +19,8 @@ our $VERSION = '999.999'; # VERSION
 my $FORK_OPTIMIZATION_THRESHOLD = 100_000;
 
 BEGIN {
-    my $use_fork = $ENV{NO_FORK} || !can_fork ? FALSE : TRUE;
-    *_USE_FORK = sub() { $use_fork };
+    my $use_fork = $ENV{NO_FORK} || !can_fork;
+    *_USE_FORK = $use_fork ? \&TRUE : \&FALSE;
 }
 
 sub init {