summaryrefslogtreecommitdiff
path: root/win32
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>2002-05-08 00:46:34 +0000
committerGurusamy Sarathy <gsar@cpan.org>2002-05-08 00:46:34 +0000
commitd9a047f6d3d79edf81aa2269cd7c05f823a2d32e (patch)
tree27f2d76cb39899856942c317239beb69c73e9ea4 /win32
parentf4958739667376c0faa87fba69392c434e87055f (diff)
downloadperl-d9a047f6d3d79edf81aa2269cd7c05f823a2d32e.tar.gz
aTHX may be empty
p4raw-id: //depot/perl@16462
Diffstat (limited to 'win32')
-rw-r--r--win32/win32.c4
1 files changed, 4 insertions, 0 deletions
diff --git a/win32/win32.c b/win32/win32.c
index 78f14eb142..ca684c84cd 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
}