app_perl: set G_EVAL flag when executing perl_destroy_func

- trap use of die in the perl libs to avoid having an exit when
reset_cycles is used

src/modules/app_perl/app_perl_mod.c

@@ -401,7 +401,7 @@ int app_perl_reset_interpreter(void)
 		return 0;
 
 	if(perl_destroy_func)
-		call_argv(perl_destroy_func, G_DISCARD | G_NOARGS, args);
+		call_argv(perl_destroy_func, G_DISCARD | G_NOARGS | G_EVAL, args);
 
 	gettimeofday(&t1, NULL);
 	if (perl_reload()<0) {