Perl: fixed warning about "sep" may be used uninitialized.
diff --git a/src/http/modules/perl/nginx.xs b/src/http/modules/perl/nginx.xs
index 71f17a8..ae85845 100644
--- a/src/http/modules/perl/nginx.xs
+++ b/src/http/modules/perl/nginx.xs
@@ -268,19 +268,16 @@
}
#endif
- if (hh->offset) {
+ ph = (ngx_table_elt_t **) ((char *) &r->headers_in + hh->offset);
- ph = (ngx_table_elt_t **) ((char *) &r->headers_in + hh->offset);
+ if (*ph) {
+ ngx_http_perl_set_targ((*ph)->value.data, (*ph)->value.len);
- if (*ph) {
- ngx_http_perl_set_targ((*ph)->value.data, (*ph)->value.len);
-
- goto done;
- }
-
- XSRETURN_UNDEF;
+ goto done;
}
+ XSRETURN_UNDEF;
+
multi:
/* Cookie, X-Forwarded-For */