Mercurial > hg > nginx

comparison src/http/modules/perl/nginx.xs @ 6232:5f2a0739da19

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Perl: fixed warning about "sep" may be used uninitialized.
author Maxim Dounin <mdounin@mdounin.ru>
date Tue, 18 Aug 2015 16:26:05 +0300
parents 43900b822890
children c6cc0b79a43d
comparison
equal deleted inserted replaced
6231:5def760fe95e 6232:5f2a0739da19
266 sep = ','; 266 sep = ',';
267 goto multi; 267 goto multi;
268 } 268 }
269 #endif 269 #endif
270 270
271 if (hh->offset) { 271 ph = (ngx_table_elt_t **) ((char *) &r->headers_in + hh->offset);
272 272
273 ph = (ngx_table_elt_t **) ((char *) &r->headers_in + hh->offset); 273 if (*ph) {
274 274 ngx_http_perl_set_targ((*ph)->value.data, (*ph)->value.len);
275 if (*ph) { 275
276 ngx_http_perl_set_targ((*ph)->value.data, (*ph)->value.len); 276 goto done;
277 277 }
278 goto done; 278
279 } 279 XSRETURN_UNDEF;
280
281 XSRETURN_UNDEF;
282 }
283 280
284 multi: 281 multi:
285 282
286 /* Cookie, X-Forwarded-For */ 283 /* Cookie, X-Forwarded-For */
287 284