--- 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();
 }