diff options
author | Bram Moolenaar <Bram@vim.org> | 2010-02-17 16:40:58 +0100 |
---|---|---|
committer | Bram Moolenaar <Bram@vim.org> | 2010-02-17 16:40:58 +0100 |
commit | 3a0573acaed378328a8f41a868d898f14802b3af (patch) | |
tree | 48f844c0bd65fd75698aa5967cfc012071fe3002 | |
parent | 33d0b69ab8112f57a0b4c35a6a1add440a60b81f (diff) |
updated for version 7.2.363v7.2.363
Problem: Can't dynamically load Perl 5.10.
Solution: Add the function Perl_croak_xs_usage. (Sergey Khorev)
-rw-r--r-- | src/if_perl.xs | 9 | ||||
-rw-r--r-- | src/version.c | 2 |
2 files changed, 11 insertions, 0 deletions
diff --git a/src/if_perl.xs b/src/if_perl.xs index 1ef0eb4aa6..978470795c 100644 --- a/src/if_perl.xs +++ b/src/if_perl.xs @@ -93,6 +93,9 @@ EXTERN_C void boot_DynaLoader __ARGS((pTHX_ CV*)); # define perl_free dll_perl_free # define Perl_get_context dll_Perl_get_context # define Perl_croak dll_Perl_croak +# if (PERL_REVISION == 5) && (PERL_VERSION >= 10) +# define Perl_croak_xs_usage dll_Perl_croak_xs_usage +# endif # ifndef PROTO # define Perl_croak_nocontext dll_Perl_croak_nocontext # define Perl_call_argv dll_Perl_call_argv @@ -202,6 +205,9 @@ static int (*perl_run)(PerlInterpreter*); static int (*perl_parse)(PerlInterpreter*, XSINIT_t, int, char**, char**); static void* (*Perl_get_context)(void); static void (*Perl_croak)(pTHX_ const char*, ...); +#if (PERL_REVISION == 5) && (PERL_VERSION >= 10) +static void (*Perl_croak_xs_usage)(pTHX_ const CV *const, const char *const params); +#endif static void (*Perl_croak_nocontext)(const char*, ...); static I32 (*Perl_dowantarray)(pTHX); static void (*Perl_free_tmps)(pTHX); @@ -306,6 +312,9 @@ static struct { {"perl_parse", (PERL_PROC*)&perl_parse}, {"Perl_get_context", (PERL_PROC*)&Perl_get_context}, {"Perl_croak", (PERL_PROC*)&Perl_croak}, +#if (PERL_REVISION == 5) && (PERL_VERSION >= 10) + {"Perl_croak_xs_usage", (PERL_PROC*)&Perl_croak_xs_usage}, +#endif {"Perl_croak_nocontext", (PERL_PROC*)&Perl_croak_nocontext}, {"Perl_dowantarray", (PERL_PROC*)&Perl_dowantarray}, {"Perl_free_tmps", (PERL_PROC*)&Perl_free_tmps}, diff --git a/src/version.c b/src/version.c index 47c1223631..640a69bc86 100644 --- a/src/version.c +++ b/src/version.c @@ -682,6 +682,8 @@ static char *(features[]) = static int included_patches[] = { /* Add new patch number below this line */ /**/ + 363, +/**/ 362, /**/ 361, |