diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1997-12-13 13:09:15 -0500 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-12-17 12:02:03 +0000 |
| commit | dd96f567babd77c258fd51112ff376f11f0b32ac (patch) | |
| tree | 25be9a2f30132eaa9bf9f5a5a2cafb22b3630ea3 /os2/OS2 | |
| parent | 414017bba678bf057e68f59bd92234bf578ec54e (diff) | |
| download | perl-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')
| -rw-r--r-- | os2/OS2/PrfDB/PrfDB.xs | 2 | ||||
| -rw-r--r-- | os2/OS2/REXX/REXX.xs | 1 |
2 files changed, 2 insertions, 1 deletions
diff --git a/os2/OS2/PrfDB/PrfDB.xs b/os2/OS2/PrfDB/PrfDB.xs index a5b2c89ca6..5465e1d136 100644 --- a/os2/OS2/PrfDB/PrfDB.xs +++ b/os2/OS2/PrfDB/PrfDB.xs @@ -22,7 +22,7 @@ Prf_Get(HINI hini, PSZ app, PSZ key) { if (CheckWinError(PrfQueryProfileSize(hini, app, key, &len))) return &sv_undef; sv = newSVpv("", 0); - SvGROW(sv, len); + SvGROW(sv, len + 1); if (CheckWinError(PrfQueryProfileData(hini, app, key, SvPVX(sv), &len)) || (len == 0 && (app == NULL || key == NULL))) { /* Somewhy needed. */ SvREFCNT_dec(sv); 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, |