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/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/OS2')
-rw-r--r-- | os2/OS2/PrfDB/PrfDB.xs | 4 |
1 files changed, 2 insertions, 2 deletions
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; |