Fix token ID format (#1998)

This commit is contained in:
Maxime Besson 2019-11-06 11:45:47 +01:00
parent 86e7140624
commit 7bdd33eb46

View File

@ -65,7 +65,7 @@ sub createToken {
if ( $self->cache ) {
my $id =
$infos->{_utime} . '_' . unpack( 's', Crypt::URandom::urandom(2) );
$infos->{_utime} . '_' . unpack( 'S', Crypt::URandom::urandom(2) );
# Dereference $infos
my %h = %$infos;