1 files changed, 9 insertions, 0 deletions
diff --git a/mg.c b/mg.c
index 9f05d3c2c4..50136e2bae 100644
--- a/mg.c
+++ b/mg.c
@@ -2145,6 +2145,15 @@ Perl_whichsig(pTHX_ char *sig)
     return 0;
 }
 
+void
+Perl_despatch_signals(pTHX)
+{
+#ifndef PERL_OLD_SIGNALS
+ /* This is just a dummy for now */
+#endif
+ PL_sig_pending = 0;
+}
+
 static SV* sig_sv;
 
 Signal_t