* Add implementation of save point for async events in rspamd filters

1 files changed, 3 insertions, 0 deletions

diff --git a/perl.c b/perl.c
index 2cdfacf55..2e1c9e5d7 100644
--- a/perl.c
+++ b/perl.c
@@ -181,6 +181,9 @@ void perl_call_memcached_callback (memcached_ctx_t *ctx, memc_error_t error, voi
 	
 	free (callback_data);
 	free (ctx);
+    /* Set save point */
+    callback_data->task->save.saved = 0;
+	process_filters (callback_data->task);
 
 	SPAGAIN;
 	FREETMPS;