Closes #182 "portal return a 500 error under cgi-script

2010-10-11 11:45:37 +00:00 · 2010-10-11 11:45:37 +00:00 · f95acaa007
commit f95acaa007
parent 740030bf2c
1 changed files with 1 additions and 0 deletions
--- a/modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Simple.pm
+++ b/modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Simple.pm
@ -738,6 +738,7 @@ sub error_type {
 # Overload CGI::header() to add Lemonldap::NG cookie.
 sub header {
    my $self = shift;
+    unshift @_, '-type' unless ($#_);
    if ( $self->{cookie} ) {
        $self->SUPER::header( @_, -cookie => $self->{cookie} );
    }