Try to make including patchlevel.h a bit more

[p5sagit/p5-mst-13.2.git] / ext / List / Util / Util.xs

diff --git a/ext/List/Util/Util.xs b/ext/List/Util/Util.xs
index 0b080c5..db9ce15 100644 (file)
--- a/ext/List/Util/Util.xs
+++ b/ext/List/Util/Util.xs
@@ -8,7 +8,10 @@
 #include <XSUB.h>
 
 #ifndef PERL_VERSION
-#    include "patchlevel.h"
+#    include <patchlevel.h>
+#    ifndef PERL_VERSION
+#        include <could_not_find_Perl_patchlevel.h>
+#    endif
 #    define PERL_REVISION      5
 #    define PERL_VERSION       PATCHLEVEL
 #    define PERL_SUBVERSION    SUBVERSION
@@ -402,7 +405,7 @@ CODE:
 OUTPUT:
     RETVAL
 
-IV
+UV
 refaddr(sv)
     SV * sv
 PROTOTYPE: $
@@ -411,7 +414,7 @@ CODE:
     if(!SvROK(sv)) {
        XSRETURN_UNDEF;
     }
-    RETVAL = PTR2IV(SvRV(sv));
+    RETVAL = PTR2UV(SvRV(sv));
 }
 OUTPUT:
     RETVAL