Commits

Ken Takata committed a68ae10

add a new patch: support-perl-5.20.patch

  • Participants
  • Parent commits 6cb5713

Comments (0)

Files changed (2)

 Make_mvc.mak.patch
 add-stat-test.patch
 gvim-nsi.patch
+support-perl-5.20.patch
 fix-config_cache-removal.patch #+rejected

support-perl-5.20.patch

+# HG changeset patch
+# Parent 5526ea675a3318fa072ad0aa13c6a5eae5748f90
+diff --git a/src/if_perl.xs b/src/if_perl.xs
+--- a/src/if_perl.xs
++++ b/src/if_perl.xs
+@@ -191,6 +191,9 @@
+ # define Perl_pop_scope dll_Perl_pop_scope
+ # define Perl_push_scope dll_Perl_push_scope
+ # define Perl_save_int dll_Perl_save_int
++# if (PERL_REVISION == 5) && (PERL_VERSION >= 20)
++#  define Perl_save_strlen dll_Perl_save_strlen
++# endif
+ # define Perl_stack_grow dll_Perl_stack_grow
+ # define Perl_set_context dll_Perl_set_context
+ # if (PERL_REVISION == 5) && (PERL_VERSION >= 14)
+@@ -311,6 +314,9 @@
+ static void (*Perl_pop_scope)(pTHX);
+ static void (*Perl_push_scope)(pTHX);
+ static void (*Perl_save_int)(pTHX_ int*);
++#if (PERL_REVISION == 5) && (PERL_VERSION >= 20)
++static void (*Perl_save_strlen)(pTHX_ STRLEN* ptr);
++#endif
+ static SV** (*Perl_stack_grow)(pTHX_ SV**, SV**p, int);
+ static SV** (*Perl_set_context)(void*);
+ #if (PERL_REVISION == 5) && (PERL_VERSION >= 14)
+@@ -440,6 +446,9 @@
+     {"Perl_pop_scope", (PERL_PROC*)&Perl_pop_scope},
+     {"Perl_push_scope", (PERL_PROC*)&Perl_push_scope},
+     {"Perl_save_int", (PERL_PROC*)&Perl_save_int},
++#if (PERL_REVISION == 5) && (PERL_VERSION >= 20)
++    {"Perl_save_strlen", (PERL_PROC*)&Perl_save_strlen},
++#endif
+     {"Perl_stack_grow", (PERL_PROC*)&Perl_stack_grow},
+     {"Perl_set_context", (PERL_PROC*)&Perl_set_context},
+ #if (PERL_REVISION == 5) && (PERL_VERSION >= 14)