diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1999-01-20 22:58:29 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-01-21 14:47:43 +0000 |
| commit | 4e3d48450685e41306196aa7ed47417ebfb08dd0 (patch) | |
| tree | a83495c6ae6f7ae8cd8292dafe2c672f5b415b2c /os2 | |
| parent | 0196e43b1b9433295e0757182a574ae2a27fda73 (diff) | |
| download | perl-4e3d48450685e41306196aa7ed47417ebfb08dd0.tar.gz | |
OS2::PrfDB was exploiting a bug in U32 XSUBs
To: Mailing list Perl5 <perl5-porters@perl.org>
Message-ID: <19990121035829.A25822@monk.mps.ohio-state.edu>
p4raw-id: //depot/cfgperl@2664
Diffstat (limited to 'os2')
| -rw-r--r-- | os2/Changes | 3 | ||||
| -rw-r--r-- | os2/OS2/PrfDB/PrfDB.xs | 4 |
2 files changed, 5 insertions, 2 deletions
diff --git a/os2/Changes b/os2/Changes index e45a7a6c44..910ec467f4 100644 --- a/os2/Changes +++ b/os2/Changes @@ -220,6 +220,9 @@ after 5.005_53: pre-fixpak22 configuration (calling getpriority() on non-existing process triggers a system-wide bug). + + PrfDB was using a bug in processing XSUBs returning U32. + Variable $OS2::emx_rev implemented (string and numberic values are the same as C variables _emx_rev and _emx_vprt). Variable $OS2::emx_env implemented (same as C variable _emx_env). diff --git a/os2/OS2/PrfDB/PrfDB.xs b/os2/OS2/PrfDB/PrfDB.xs index 13123200a2..2ba836c183 100644 --- a/os2/OS2/PrfDB/PrfDB.xs +++ b/os2/OS2/PrfDB/PrfDB.xs @@ -33,7 +33,7 @@ Prf_Get(HINI hini, PSZ app, PSZ key) { return sv; } -U32 +I32 Prf_GetLength(HINI hini, PSZ app, PSZ key) { U32 len; @@ -110,7 +110,7 @@ Prf_Set(hini, app, key, s, l = (SvPOK(ST(3)) ? SvCUR(ST(3)): -1)) PSZ s; ULONG l; -U32 +I32 Prf_GetLength(hini, app, key) HINI hini; PSZ app; |