From 469d2a40aa2db2c2945da9c2130c51898d3dcdac Mon Sep 17 00:00:00 2001 From: Christophe Maudoux Date: Wed, 9 Jun 2021 23:06:03 +0200 Subject: [PATCH] Fix warning (#2538) --- lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Main/Jail.pm | 4 ++-- lemonldap-ng-portal/t/30-Auth-and-issuer-SAML-POST.t | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Main/Jail.pm b/lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Main/Jail.pm index 40eec458f..486ccccf6 100644 --- a/lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Main/Jail.pm +++ b/lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Main/Jail.pm @@ -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 diff --git a/lemonldap-ng-portal/t/30-Auth-and-issuer-SAML-POST.t b/lemonldap-ng-portal/t/30-Auth-and-issuer-SAML-POST.t index ae2494f8a..7ba27665b 100644 --- a/lemonldap-ng-portal/t/30-Auth-and-issuer-SAML-POST.t +++ b/lemonldap-ng-portal/t/30-Auth-and-issuer-SAML-POST.t @@ -12,7 +12,7 @@ BEGIN { } my $maintests = 22; -my $debug = 'debug'; +my $debug = 'error'; my ( $issuer, $sp, $res ); # Redefine LWP methods for tests