--- src/http/modules/perl/ngx_http_perl_module.c

+++ src/http/modules/perl/ngx_http_perl_module.c

@@ -786,6 +786,7 @@ static void

 ngx_http_perl_cleanup_perl(void *data)

 {

     PerlInterpreter  *perl = data;

+    dTHXa(perl);

     PERL_SET_CONTEXT(perl);

@@ -1029,5 +1030,6 @@ ngx_http_perl_init_worker(ngx_cycle_t *cycle)

 static void

 ngx_http_perl_exit(ngx_cycle_t *cycle)

 {

+	dTHX;

     PERL_SYS_TERM();

 }