diff options
Diffstat (limited to 'src/perl')
| -rw-r--r-- | src/perl/nxt_perl_psgi.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/perl/nxt_perl_psgi.c b/src/perl/nxt_perl_psgi.c index 587656cd..c16b2173 100644 --- a/src/perl/nxt_perl_psgi.c +++ b/src/perl/nxt_perl_psgi.c @@ -673,7 +673,8 @@ nxt_perl_psgi_env_create(PerlInterpreter *my_perl, RC(nxt_perl_psgi_add_sptr(my_perl, hash_env, NL("SERVER_NAME"), &r->server_name, r->server_name_length)); - RC(nxt_perl_psgi_add_str(my_perl, hash_env, NL("SERVER_PORT"), "80", 2)); + RC(nxt_perl_psgi_add_sptr(my_perl, hash_env, NL("SERVER_PORT"), + &r->local_port, r->local_port_length)); for (i = 0; i < r->fields_count; i++) { f = r->fields + i; |