X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=mg.c;h=4369e4ae10c0f0d5e71a20ce8a3ae0ae2199e1f7;hb=582ed04c91818c6c9bf5b51c84f67b7c565925a7;hp=d14625ee74e57391e76647b2243da1517b9a3982;hpb=632db59947373ea3f7559d83263d63370aef7f97;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/mg.c b/mg.c
index d14625e..4369e4a 100644
--- a/mg.c
+++ b/mg.c
@@ -1102,6 +1102,7 @@ Perl_csighandler_init(void)
 
     for (sig = 1; sig < SIG_SIZE; sig++) {
 #ifdef FAKE_DEFAULT_SIGNAL_HANDLERS
+        dTHX;
         sig_defaulting[sig] = 1;
         (void) rsignal(sig, &Perl_csighandler);
 #endif