a small fix.

From: "Konovalov, Vadim Vladimirovich (Vadim)" <vkonovalov@lucent.com>
Message-ID: <E3FB32585BF1D411B9E900805FF51A08074B35@RU0022EXCH001U>

p4raw-id: //depot/perl@11080

diff --git a/ext/Thread/Thread.xs b/ext/Thread/Thread.xs
index b209d3b..4816efc 100644 (file)
--- a/ext/Thread/Thread.xs
+++ b/ext/Thread/Thread.xs
@@ -342,6 +342,7 @@ static Signal_t
 handle_thread_signal(int sig)
 {
     unsigned char c = (unsigned char) sig;
+    dTHX;
     /*
      * We're not really allowed to call fprintf in a signal handler
      * so don't be surprised if this isn't robust while debugging