tweaks to enable PERL_OBJECT to build & test on win32

[p5sagit/p5-mst-13.2.git] / mg.c

diff --git a/mg.c b/mg.c
index e7472a6..90bea2b 100644 (file)
--- a/mg.c
+++ b/mg.c
@@ -307,7 +307,7 @@ mg_free(SV *sv)
 #include <signal.h>
 #endif
 
-int
+U32
 magic_regdata_cnt(SV *sv, MAGIC *mg)
 {
     dTHR;
@@ -318,7 +318,7 @@ magic_regdata_cnt(SV *sv, MAGIC *mg)
 
     if (PL_curpm && (rx = PL_curpm->op_pmregexp))
        return rx->lastparen;
-    return -1;
+    return (U32)-1;
 }
 
 int