From: Vadim Konovalov <vkonovalov@lucent.com>
Date: Mon, 2 Jul 2001 12:17:53 +0000 (+0200)
Subject: a small fix.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e8fcfee608d20538ae034bd0b3da16756dcf59f8;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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