summaryrefslogtreecommitdiff
path: root/os2/OS2/REXX/REXX.xs
diff options
context:
space:
mode:
authorIlya Zakharevich <ilya@math.berkeley.edu>1997-12-13 13:09:15 -0500
committerMalcolm Beattie <mbeattie@sable.ox.ac.uk>1997-12-17 12:02:03 +0000
commitdd96f567babd77c258fd51112ff376f11f0b32ac (patch)
tree25be9a2f30132eaa9bf9f5a5a2cafb22b3630ea3 /os2/OS2/REXX/REXX.xs
parent414017bba678bf057e68f59bd92234bf578ec54e (diff)
downloadperl-dd96f567babd77c258fd51112ff376f11f0b32ac.tar.gz
Threading patches for OS/2 (missing files taken from previous patch):
Subject: Re: 5.004_55: OS/2 patches again p4raw-id: //depot/perl@371
Diffstat (limited to 'os2/OS2/REXX/REXX.xs')
-rw-r--r--os2/OS2/REXX/REXX.xs1
1 files changed, 1 insertions, 0 deletions
diff --git a/os2/OS2/REXX/REXX.xs b/os2/OS2/REXX/REXX.xs
index df7646c42e..43c92c8b46 100644
--- a/os2/OS2/REXX/REXX.xs
+++ b/os2/OS2/REXX/REXX.xs
@@ -46,6 +46,7 @@ static long incompartment;
static SV*
exec_in_REXX(char *cmd, char * handlerName, RexxFunctionHandler *handler)
{
+ dTHR;
HMODULE hRexx, hRexxAPI;
BYTE buf[200];
LONG APIENTRY (*pRexxStart) (LONG, PRXSTRING, PSZ, PRXSTRING,