From: Ilya Zakharevich <ilya@math.berkeley.edu>
Date: Thu, 21 Jan 1999 03:58:29 +0000 (-0500)
Subject: OS2::PrfDB was exploiting a bug in U32 XSUBs
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4e3d48450685e41306196aa7ed47417ebfb08dd0;p=p5sagit%2Fp5-mst-13.2.git

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
---

diff --git a/os2/Changes b/os2/Changes
index e45a7a6..910ec46 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 1312320..2ba836c 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;