mg_copy ought to take an I32

From: "Vincent Pit" <perl@profvince.com>
Message-ID: <39468.147.210.17.175.1202290798.squirrel@147.210.17.175>

p4raw-id: //depot/perl@33256

diff --git a/ext/threads/shared/shared.xs b/ext/threads/shared/shared.xs
index 9e66dfa..7decc4d 100644 (file)
--- a/ext/threads/shared/shared.xs
+++ b/ext/threads/shared/shared.xs
@@ -1035,7 +1035,7 @@ sharedsv_array_mg_free(pTHX_ SV *sv, MAGIC *mg)
  */
 int
 sharedsv_array_mg_copy(pTHX_ SV *sv, MAGIC* mg,
-                       SV *nsv, const char *name, int namlen)
+                       SV *nsv, const char *name, I32 namlen)
 {
     MAGIC *nmg = sv_magicext(nsv,mg->mg_obj,
                             toLOWER(mg->mg_type),&sharedsv_elem_vtbl,

diff --git a/mg.h b/mg.h
index fffc2dc..bdafe26 100644 (file)
--- a/mg.h
+++ b/mg.h
@@ -18,7 +18,7 @@ struct mgvtbl {
     int                (CPERLscope(*svt_clear))(pTHX_ SV *sv, MAGIC* mg);
     int                (CPERLscope(*svt_free)) (pTHX_ SV *sv, MAGIC* mg);
     int                (CPERLscope(*svt_copy)) (pTHX_ SV *sv, MAGIC* mg,
-                                       SV *nsv, const char *name, int namlen);
+                                       SV *nsv, const char *name, I32 namlen);
     int                (CPERLscope(*svt_dup))  (pTHX_ MAGIC *mg, CLONE_PARAMS *param);
     int                (CPERLscope(*svt_local))(pTHX_ SV *nsv, MAGIC *mg);
 };

diff --git a/pod/perlguts.pod b/pod/perlguts.pod
index f0ec1c9..33346c6 100644 (file)
--- a/pod/perlguts.pod
+++ b/pod/perlguts.pod
@@ -979,7 +979,7 @@ routine types:
     int  (*svt_clear)(SV* sv, MAGIC* mg);
     int  (*svt_free)(SV* sv, MAGIC* mg);
 
-    int  (*svt_copy)(SV *sv, MAGIC* mg, SV *nsv, const char *name, int namlen);
+    int  (*svt_copy)(SV *sv, MAGIC* mg, SV *nsv, const char *name, I32 namlen);
     int  (*svt_dup)(MAGIC *mg, CLONE_PARAMS *param);
     int  (*svt_local)(SV *nsv, MAGIC *mg);