diff options
| -rw-r--r-- | src/perl/nxt_perl_psgi.c | 4 |
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); |