technocloud-public/nginx-unit
1
0
Fork 0
Code Issues Pull Requests Actions 1 Packages Projects Releases Wiki Activity

Perl: added more checks for 'body' variable

Browse Source
This commit is contained in:
Alexander Borisov
2018-02-06 21:13:57 +03:00
parent b4e467e669
commit 79259d1ebd
1 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/perl/nxt_perl_psgi.c
View File

@@ -896,6 +896,11 @@ nxt_perl_psgi_result_body_ref(PerlInterpreter *my_perl, SV *sv_body,
u_char vbuf[8192]; u_char vbuf[8192];
io = GvIO(SvRV(sv_body)); io = GvIO(SvRV(sv_body));
if (io == NULL) {
return NXT_OK;
}
fp = IoIFP(io); fp = IoIFP(io);
for ( ;; ) { for ( ;; ) {
@@ -1015,7 +1020,7 @@ nxt_perl_psgi_result_array(PerlInterpreter *my_perl, SV *result,
sv_temp = av_fetch(array, 2, 0); sv_temp = av_fetch(array, 2, 0);
if (nxt_slow_path(sv_temp == NULL)) { if (nxt_slow_path(sv_temp == NULL || SvROK(*sv_temp) == FALSE)) {
nxt_log_error(NXT_LOG_ERR, task->log, nxt_log_error(NXT_LOG_ERR, task->log,
"PSGI: Failed to get body from Perl ARRAY variable"); "PSGI: Failed to get body from Perl ARRAY variable");