summaryrefslogtreecommitdiff
path: root/os2/OS2
diff options
context:
space:
mode:
authorIlya Zakharevich <ilya@math.berkeley.edu>1999-01-20 22:58:29 -0500
committerJarkko Hietaniemi <jhi@iki.fi>1999-01-21 14:47:43 +0000
commit4e3d48450685e41306196aa7ed47417ebfb08dd0 (patch)
treea83495c6ae6f7ae8cd8292dafe2c672f5b415b2c /os2/OS2
parent0196e43b1b9433295e0757182a574ae2a27fda73 (diff)
downloadperl-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.xs4
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;