Fix warning (#2538)

This commit is contained in:
Christophe Maudoux 2021-06-09 23:06:03 +02:00
parent 03f63877d8
commit 469d2a40aa
2 changed files with 3 additions and 3 deletions

View File

@ -26,7 +26,7 @@ has multiValuesSeparator => ( is => 'rw', isa => 'Maybe[Str]' );
has jail => ( is => 'rw' );
has error => ( is => 'rw' );
our $VERSION = '2.0.11';
our $VERSION = '2.0.12';
our @builtCustomFunctions;
## @imethod protected build_jail()
@ -122,7 +122,7 @@ sub encrypt {
}
sub token {
return encrypt( join( ':', time, @_ ) );
return $_[0] ? encrypt( join( ':', time, @_ ) ) : encrypt(time);
}
## @method reval

View File

@ -12,7 +12,7 @@ BEGIN {
}
my $maintests = 22;
my $debug = 'debug';
my $debug = 'error';
my ( $issuer, $sp, $res );
# Redefine LWP methods for tests