mirror/nginx
1
0
Fork 0
mirror of https://github.com/nginx/nginx.git synced 2024-11-24 13:49:05 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

Perl: named locations in $r->internal_redirect().

Browse Source
This commit is contained in:
Maxim Dounin 2019-07-12 15:39:28 +03:00
parent 8df08b02b8
commit 29fea7d9ec
1 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/http/modules/perl/ngx_http_perl_module.c
View File

@ -257,6 +257,10 @@ ngx_http_perl_handle_request(ngx_http_request_t *r)
}
if (uri.len) {
if (uri.data[0] == '@') {
ngx_http_named_location(r, &uri);
} else {
ngx_str_null(&args);
flags = NGX_HTTP_LOG_UNSAFE;
@ -266,6 +270,8 @@ ngx_http_perl_handle_request(ngx_http_request_t *r)
}
ngx_http_internal_redirect(r, &uri, &args);
}
ngx_http_finalize_request(r, NGX_DONE);
return;
}