From a4892485b39151b964648a0a5171a3d83b0dfc39 Mon Sep 17 00:00:00 2001
From: Xavier Guimard <xavier.guimard@laposte.net>
Date: Thu, 28 Apr 2016 05:59:34 +0000
Subject: [PATCH] Finalize #1002 backport

---
 lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Main/Run.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Main/Run.pm b/lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Main/Run.pm
index 479d83013..c04cb52ff 100644
--- a/lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Main/Run.pm
+++ b/lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Main/Run.pm
@@ -482,9 +482,10 @@ sub isUnprotected {
 sub sendHeaders {
     my $class = shift;
     my $vhost = $class->resolveAlias;
-    if ( defined( my %headers = $class->tsv->{forgeHeaders}->{$vhost}->() ) ) {
+    if ( defined $class->tsv->{forgeHeaders}->{$vhost} ) {
 
         # Log headers in debug mode
+        my %headers = $class->tsv->{forgeHeaders}->{$vhost}->();
         foreach my $h ( sort keys %headers ) {
             if ( defined( my $v = $headers{$h} ) ) {
                 $class->lmLog( "Send header $h with value $v", 'debug' );
@@ -493,7 +494,7 @@ sub sendHeaders {
                 $class->lmLog( "Send header $h with empty value", 'debug' );
             }
         }
-        $class->set_header_in( %headers );
+        $class->set_header_in(%headers);
     }
 }