# HG changeset patch
# User Sergey Kandaurov <pluknet@nginx.com>
# Date 1655188798 -14400
# Node ID 861f076eab72dab85bd5eaa56da770f8b10aa8ad
# Parent  aa28c802409fb7a74e3323195f859d09fe73cd6d
Perl: removed unused variables, forgotten in ef6a3a99a81a.

diff --git a/src/http/modules/perl/nginx.xs b/src/http/modules/perl/nginx.xs
--- 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;