]> git.vpit.fr Git - perl/modules/Variable-Magic.git/commitdiff
Prettify the declaration of vmg_svt_copy()
authorVincent Pit <vince@profvince.com>
Wed, 26 Oct 2011 19:56:42 +0000 (21:56 +0200)
committerVincent Pit <vince@profvince.com>
Wed, 26 Oct 2011 19:56:42 +0000 (21:56 +0200)
Magic.xs

index bf413ff0329b69ed1af14bced53f689fdd31d211..1e6a77c823a99a7ddcdf3e3ffeece4b86dd630f4 100644 (file)
--- a/Magic.xs
+++ b/Magic.xs
@@ -1195,13 +1195,13 @@ STATIC int vmg_svt_free(pTHX_ SV *sv, MAGIC *mg) {
  return ret;
 }
 
-STATIC int vmg_svt_copy(pTHX_ SV *sv, MAGIC *mg, SV *nsv, const char *key,
-# if VMG_HAS_PERL_MAINT(5, 11, 0, 33256) || VMG_HAS_PERL(5, 12, 0)
-  I32 keylen
-# else
-  int keylen
-# endif
- ) {
+#if VMG_HAS_PERL_MAINT(5, 11, 0, 33256) || VMG_HAS_PERL(5, 12, 0)
+# define VMG_SVT_COPY_KEYLEN_TYPE I32
+#else
+# define VMG_SVT_COPY_KEYLEN_TYPE int
+#endif
+
+STATIC int vmg_svt_copy(pTHX_ SV *sv, MAGIC *mg, SV *nsv, const char *key, VMG_SVT_COPY_KEYLEN_TYPE keylen) {
  const vmg_wizard *w = vmg_wizard_from_mg_nocheck(mg);
  SV *keysv;
  int ret;