From 55f5e7656892bb5ab03f4f19defe887167db7236 Mon Sep 17 00:00:00 2001
From: Leon Timmermans <fawaka@gmail.com>
Date: Tue, 12 Jan 2021 23:47:55 +0100
Subject: Call magic on all elements on %SIG delocalization

---
 mg.c | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

(limited to 'mg.c')

diff --git a/mg.c b/mg.c
index 3355df1b4b..bd71ce15b7 100644
--- a/mg.c
+++ b/mg.c
@@ -1826,6 +1826,24 @@ Perl_magic_setsig(pTHX_ SV *sv, MAGIC *mg)
 }
 #endif /* !PERL_MICRO */
 
+int
+Perl_magic_setsigall(pTHX_ SV* sv, MAGIC* mg)
+{
+    PERL_ARGS_ASSERT_MAGIC_SETSIGALL;
+    PERL_UNUSED_ARG(mg);
+
+    if (PL_localizing == 2) {
+        HV* hv = (HV*)sv;
+        HE* current;
+        hv_iterinit(hv);
+        while ((current = hv_iternext(hv))) {
+            SV* sigelem = hv_iterval(hv, current);
+            mg_set(sigelem);
+        }
+    }
+    return 0;
+}
+
 int
 Perl_magic_setisa(pTHX_ SV *sv, MAGIC *mg)
 {
-- 
cgit v1.2.1