summaryrefslogtreecommitdiffhomepage
path: root/src/perl
diff options
context:
space:
mode:
authorAlexander Borisov <alexander.borisov@nginx.com>2018-08-08 15:04:43 +0300
committerAlexander Borisov <alexander.borisov@nginx.com>2018-08-08 15:04:43 +0300
commitc67fbf01ad322a773cf4fb4bf92071d6224b5bd4 (patch)
tree28b0ca719f4a116580d3897e478098dcca394d82 /src/perl
parentb2ec830515738089fc57513fbe601d9177cba434 (diff)
downloadunit-c67fbf01ad322a773cf4fb4bf92071d6224b5bd4.tar.gz
unit-c67fbf01ad322a773cf4fb4bf92071d6224b5bd4.tar.bz2
Perl: use of portable macro instead of an explicit declaration.
Diffstat (limited to 'src/perl')
-rw-r--r--src/perl/nxt_perl_psgi.c4
1 files 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);