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 (file)
--- 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 (file)
--- 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;