More clean response

9 years ago · 8e2418ceb8
parent 5a74c5283a
commit 8e2418ceb8
1 changed files with 3 additions and 0 deletions
--- a/lemonldap-ng-handler/lib/Lemonldap/NG/Handler/PSGI/Base.pm
+++ b/lemonldap-ng-handler/lib/Lemonldap/NG/Handler/PSGI/Base.pm
@ -129,6 +129,9 @@ sub _authAndTrace {
        }
        return $res;
    }
+    elsif ( $res < 400 ) {
+        return [ $res, $req->{respHeaders}, [] ];
+    }
    else {
        my %h = $req->{respHeaders} ? @{ $req->{respHeaders} } : ();
        my $s = $self->api->tsv->{portal}->() . "?lmError=$res";