From: Gurusamy Sarathy <gsar@cpan.org>
Date: Wed, 8 May 2002 00:46:34 +0000 (+0000)
Subject: aTHX may be empty
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d9a047f6d3d79edf81aa2269cd7c05f823a2d32e;p=p5sagit%2Fp5-mst-13.2.git

aTHX may be empty

p4raw-id: //depot/perl@16462
---

diff --git a/win32/win32.c b/win32/win32.c
index 78f14eb..ca684c8 100644
--- a/win32/win32.c
+++ b/win32/win32.c
@@ -4665,7 +4665,11 @@ win32_signal_context(void)
     }
     return my_perl;
 #else
+#ifdef USE_5005THREADS
     return aTHX;
+#else
+    return PL_curinterp;
+#endif
 #endif
 }