Merge pull request #308 from cjwatson/event-filter-refcount

Fix reference-counting in set_event_filter
PerlGameDev · Feb 16, 2025 · 09af9aa · 09af9aa
2 parents 2a7866f + fbf151a
commit 09af9aa
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/Core/Events.xs b/src/Core/Events.xs
@@ -102,7 +102,8 @@ void
 events_set_event_filter(callback)
 	SV* callback
 	CODE:
-		eventfiltersv = callback;
+		SvREFCNT_dec(eventfiltersv);
+		eventfiltersv = SvREFCNT_inc_simple(callback);
 		SDL_SetEventFilter((SDL_EventFilter) eventfilter_cb);
 
 AV *