Some bugs in previous commit

lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Nginx.pm

@@ -30,8 +30,6 @@ sub _run {
         if ( $res->[0] == 302 or $res->[0] == 303 ) {
             $res->[0] = 401;
         }
-
-        # TODO: transform headers in $res->[1]
         return $res;
     };
 }

lemonldap-ng-handler/lib/Lemonldap/NG/Handler/PSGI.pm

@@ -13,19 +13,6 @@ sub init {
     return $tmp;
 }
 
-## @method void _run()
-# Return subroutine that add headers stored in $req->{respHeaders} in
-# response returned by router()
-#
-sub _run {
-    my ($self) = @_;
-    return sub {
-        my $res = $self->router( $_[0] );
-        push @{ $res->[1] }, %{ $_[0]->{respHeaders} };
-        return $res;
-    };
-}
-
 1;
 __END__
 

lemonldap-ng-handler/lib/Lemonldap/NG/Handler/PSGI/Base.pm

@@ -61,7 +61,10 @@ sub _run {
 
         # Handle unprotected requests
         return sub {
-            $self->router( Lemonldap::NG::Common::PSGI::Request->new( $_[0] ) );
+            my $req = Lemonldap::NG::Common::PSGI::Request->new( $_[0] );
+            my $res = $self->router($req);
+            push @{ $res->[1] }, %{ $req->{respHeaders} };
+            return $res;
         };
     }
 }

lemonldap-ng-handler/lib/Lemonldap/NG/Handler/PSGI/Router.pm

@@ -14,19 +14,6 @@ sub init {
     return $tmp;
 }
 
-## @method void _run()
-# Return subroutine that add headers stored in $req->{respHeaders} in
-# response returned by router()
-#
-sub _run {
-    my ($self) = @_;
-    return sub {
-        my $res = $self->router( $_[0] );
-        push @{ $res->[1] }, %{ $_[0]->{respHeaders} };
-        return $res;
-    };
-}
-
 1;
 __END__
 

lemonldap-ng-handler/lib/Lemonldap/NG/Handler/PSGI/Server.pm

@@ -13,8 +13,9 @@ extends 'Lemonldap::NG::Handler::PSGI';
 sub _run {
     my ($self) = @_;
     return sub {
-        my $res = $self->router( $_[0] );
-        push @{ $res->[1] }, %{ $_[0]->{respHeaders} };
+        my $req = Lemonldap::NG::Common::PSGI::Request( $_[0] );
+        my $res = $self->router($req);
+        push @{ $res->[1] }, %{ $req->{respHeaders} };
         return $res;
     };
 }