From c67fbf01ad322a773cf4fb4bf92071d6224b5bd4 Mon Sep 17 00:00:00 2001
From: Alexander Borisov <alexander.borisov@nginx.com>
Date: Wed, 8 Aug 2018 15:04:43 +0300
Subject: [PATCH] Perl: use of portable macro instead of an explicit
 declaration.

---
 src/perl/nxt_perl_psgi.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/perl/nxt_perl_psgi.c b/src/perl/nxt_perl_psgi.c
index b2a9c97f..da4a3864 100644
--- a/src/perl/nxt_perl_psgi.c
+++ b/src/perl/nxt_perl_psgi.c
@@ -801,11 +801,11 @@ static ssize_t
 nxt_perl_psgi_io_read(nxt_unit_read_info_t *read_info, void *dst, size_t size)
 {
     ssize_t                 res;
-    PerlInterpreter         *my_perl;
     nxt_perl_psgi_io_ctx_t  *ctx;
 
     ctx = read_info->data;
-    my_perl = ctx->my_perl;
+
+    dTHXa(ctx->my_perl);
 
     res = PerlIO_read(ctx->fp, dst, size);