4 From: Bram Moolenaar <Bram@moolenaar.net>
6 Content-Type: text/plain; charset=ISO-8859-1
7 Content-Transfer-Encoding: 8bit
11 Problem: Warning for NULL argument of Perl_sys_init3().
12 Solution: Use Perl_sys_init() instead. (partly by Dominique Pelle)
16 *** ../vim-7.2.062/src/if_perl.xs Mon Sep 1 17:56:05 2008
17 --- src/if_perl.xs Wed Dec 3 12:44:38 2008
20 # define Perl_Isv_yes_ptr dll_Perl_Isv_yes_ptr
21 # define boot_DynaLoader dll_boot_DynaLoader
23 ! # define Perl_sys_init3 dll_Perl_sys_init3
24 # define Perl_sys_term dll_Perl_sys_term
25 # define Perl_ISv_ptr dll_Perl_ISv_ptr
26 # define Perl_Istack_max_ptr dll_Perl_Istack_max_ptr
28 # define Perl_Isv_yes_ptr dll_Perl_Isv_yes_ptr
29 # define boot_DynaLoader dll_boot_DynaLoader
31 ! # define Perl_sys_init dll_Perl_sys_init
32 # define Perl_sys_term dll_Perl_sys_term
33 # define Perl_ISv_ptr dll_Perl_ISv_ptr
34 # define Perl_Istack_max_ptr dll_Perl_Istack_max_ptr
38 #if (PERL_REVISION == 5) && (PERL_VERSION >= 10)
39 static void (*Perl_sv_free2)(pTHX_ SV*);
40 ! static void (*Perl_sys_init3)(int* argc, char*** argv, char*** env);
41 static void (*Perl_sys_term)(void);
42 static SV** (*Perl_ISv_ptr)(register PerlInterpreter*);
43 static SV*** (*Perl_Istack_max_ptr)(register PerlInterpreter*);
46 #if (PERL_REVISION == 5) && (PERL_VERSION >= 10)
47 static void (*Perl_sv_free2)(pTHX_ SV*);
48 ! static void (*Perl_sys_init)(int* argc, char*** argv);
49 static void (*Perl_sys_term)(void);
50 static SV** (*Perl_ISv_ptr)(register PerlInterpreter*);
51 static SV*** (*Perl_Istack_max_ptr)(register PerlInterpreter*);
54 {"Perl_Tna_ptr", (PERL_PROC*)&Perl_Tna_ptr},
56 {"Perl_sv_free2", (PERL_PROC*)&Perl_sv_free2},
57 ! {"Perl_sys_init3", (PERL_PROC*)&Perl_sys_init3},
58 {"Perl_sys_term", (PERL_PROC*)&Perl_sys_term},
59 {"Perl_ISv_ptr", (PERL_PROC*)&Perl_ISv_ptr},
60 {"Perl_Istack_sp_ptr", (PERL_PROC*)&Perl_Istack_sp_ptr},
62 {"Perl_Tna_ptr", (PERL_PROC*)&Perl_Tna_ptr},
64 {"Perl_sv_free2", (PERL_PROC*)&Perl_sv_free2},
65 ! {"Perl_sys_init", (PERL_PROC*)&Perl_sys_init},
66 {"Perl_sys_term", (PERL_PROC*)&Perl_sys_term},
67 {"Perl_ISv_ptr", (PERL_PROC*)&Perl_ISv_ptr},
68 {"Perl_Istack_sp_ptr", (PERL_PROC*)&Perl_Istack_sp_ptr},
71 static char *argv[] = { "", "-e", "" };
73 #if (PERL_REVISION == 5) && (PERL_VERSION >= 10)
74 ! Perl_sys_init3(&argc, (char***)&argv, NULL);
76 perl_interp = perl_alloc();
77 perl_construct(perl_interp);
79 static char *argv[] = { "", "-e", "" };
81 #if (PERL_REVISION == 5) && (PERL_VERSION >= 10)
82 ! Perl_sys_init(&argc, (char***)&argv);
84 perl_interp = perl_alloc();
85 perl_construct(perl_interp);
86 *** ../vim-7.2.062/src/version.c Wed Dec 3 11:21:20 2008
87 --- src/version.c Wed Dec 3 12:42:50 2008
91 { /* Add new patch number below this line */
100 /// Bram Moolenaar -- Bram@Moolenaar.net -- http://www.Moolenaar.net \\\
101 /// sponsor Vim, vote for features -- http://www.Vim.org/sponsor/ \\\
102 \\\ download, build and distribute -- http://www.A-A-P.org ///
103 \\\ help me help AIDS victims -- http://ICCF-Holland.org ///