diff options
| -rw-r--r-- | ext/threads/shared/shared.xs | 2 | ||||
| -rw-r--r-- | mg.h | 2 | ||||
| -rw-r--r-- | pod/perlguts.pod | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/ext/threads/shared/shared.xs b/ext/threads/shared/shared.xs index 9e66dfab66..7decc4da6e 100644 --- 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, @@ -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 f0ec1c9ee3..33346c6bd3 100644 --- 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); |