use Encode qw(encode);
use File::KDBX::Constants qw(:version :time);
use File::KDBX::Error;
-use File::KDBX::Util qw(:class assert_64bit erase_scoped gzip snakify);
+use File::KDBX::Util qw(:class :int erase_scoped gzip snakify);
use IO::Handle;
use Scalar::Util qw(blessed isdual looks_like_number);
use Time::Piece;
sub _encode_datetime_binary {
local $_ = shift;
- assert_64bit;
my $seconds_since_ad1 = $_ + TIME_SECONDS_AD1_TO_UNIX_EPOCH;
- my $buf = pack('Q<', $seconds_since_ad1->epoch);
+ my $buf = pack_Ql($seconds_since_ad1->epoch);
return eval { encode_b64($buf) };
}