Fix warning

6 years ago · 9773b8967a
parent fa0778dfbc
commit 9773b8967a
2 changed files with 4 additions and 2 deletions
--- a/lemonldap-ng-handler/lib/Lemonldap/NG/Handler/ApacheMP2/Main.pm
+++ b/lemonldap-ng-handler/lib/Lemonldap/NG/Handler/ApacheMP2/Main.pm
@ -86,7 +86,8 @@ sub set_user {
 # @param custom string custom_header
 sub set_custom {
    my ( $class, $request, $custom ) = @_;
-    $request->env->{'psgi.r'}->subprocess_env( REMOTE_CUSTOM => $custom );
+    $request->env->{'psgi.r'}->subprocess_env( REMOTE_CUSTOM => $custom )
+      if defined $custom;
 }

 ## @method void set_header_in(hash headers)
--- a/lemonldap-ng-handler/lib/Lemonldap/NG/Handler/PSGI/Main.pm
+++ b/lemonldap-ng-handler/lib/Lemonldap/NG/Handler/PSGI/Main.pm
@ -46,7 +46,8 @@ sub set_user {
 # @param custom string custom_value
 sub set_custom {
    my ( $class, $req, $custom ) = @_;
-    push @{ $req->{respHeaders} }, 'Lm-Remote-Custom' => $custom;
+    push @{ $req->{respHeaders} }, 'Lm-Remote-Custom' => $custom
+      if defined $custom;
 }

 ## @method void set_header_in(hash headers)