Perl: removed unused variables, forgotten in ef6a3a99a81a.

diff --git a/src/http/modules/perl/nginx.xs b/src/http/modules/perl/nginx.xs
index da12279528ef3a9e7919a1e65df212366590d987..fd59e29ea1066ea4ecd9fee92667f945e320f8cf 100644 (file)
--- a/src/http/modules/perl/nginx.xs
+++ b/src/http/modules/perl/nginx.xs
@@ -269,8 +269,7 @@ header_in(r, key)
     u_char                     *p, *lowcase_key, *value, sep;
     STRLEN                      len;
     ssize_t                     size;
-    ngx_uint_t                  i, n, hash;
-    ngx_array_t                *a;
+    ngx_uint_t                  i, hash;
     ngx_list_part_t            *part;
     ngx_table_elt_t            *h, *header, **ph;
     ngx_http_header_t          *hh;