From 170e652141ca6bb133d7518ef7532dcf8c26acc9 Mon Sep 17 00:00:00 2001
From: Karsten Hopp <karsten@fedoraproject.org>
Date: Sep 24 2007 14:12:38 +0000
Subject: - patchlevel 102


---

diff --git a/7.1.102 b/7.1.102
new file mode 100644
index 0000000..5f58d85
--- /dev/null
+++ b/7.1.102
@@ -0,0 +1,103 @@
+To: vim-dev@vim.org
+Subject: patch 7.1.102
+Fcc: outbox
+From: Bram Moolenaar <Bram@moolenaar.net>
+Mime-Version: 1.0
+Content-Type: text/plain; charset=ISO-8859-1
+Content-Transfer-Encoding: 8bit
+------------
+
+Patch 7.1.102
+Problem:    Perl interface doesn't compile with new version of Perl.
+Solution:   Add two variables to the dynamic library loading. (Suresh
+	    Govindachar)
+Files:	    src/if_perl.xs
+
+
+*** ../vim-7.1.101/src/if_perl.xs	Wed Aug 16 19:33:57 2006
+--- src/if_perl.xs	Wed Sep  5 22:00:36 2007
+***************
+*** 40,45 ****
+--- 40,65 ----
+  #    define PERL_SUBVERSION SUBVERSION
+  #endif
+  
++ /*
++  * Quoting Jan Dubois of Active State:
++  *    ActivePerl build 822 still identifies itself as 5.8.8 but already
++  *    contains many of the changes from the upcoming Perl 5.8.9 release.
++  *
++  * The changes include addition of two symbols (Perl_sv_2iv_flags,
++  * Perl_newXS_flags) not present in earlier releases.
++  *
++  * Jan Dubois suggested the following guarding scheme:
++  */
++ #if (ACTIVEPERL_VERSION >= 822)
++ # define PERL589_OR_LATER
++ #endif
++ #if (PERL_REVISION == 5) && (PERL_VERSION == 8) && (PERL_SUBVERSION >= 9)
++ # define PERL589_OR_LATER
++ #endif
++ #if (PERL_REVISION == 5) && (PERL_VERSION >= 9)
++ # define PERL589_OR_LATER
++ #endif
++ 
+  #ifndef pTHX
+  #    define pTHX void
+  #    define pTHX_
+***************
+*** 109,114 ****
+--- 129,138 ----
+  # else
+  #  define Perl_sv_catpvn dll_Perl_sv_catpvn
+  # endif
++ #ifdef PERL589_OR_LATER
++ #  define Perl_sv_2iv_flags dll_Perl_sv_2iv_flags
++ #  define Perl_newXS_flags dll_Perl_newXS_flags
++ #endif
+  # define Perl_sv_free dll_Perl_sv_free
+  # define Perl_sv_isa dll_Perl_sv_isa
+  # define Perl_sv_magic dll_Perl_sv_magic
+***************
+*** 192,197 ****
+--- 216,225 ----
+  #else
+  static void (*Perl_sv_catpvn)(pTHX_ SV*, const char*, STRLEN);
+  #endif
++ #ifdef PERL589_OR_LATER
++ static IV (*Perl_sv_2iv_flags)(pTHX_ SV* sv, I32 flags);
++ static CV * (*Perl_newXS_flags)(pTHX_ const char *name, XSUBADDR_t subaddr, const char *const filename, const char *const proto, U32 flags);
++ #endif
+  static void (*Perl_sv_free)(pTHX_ SV*);
+  static int (*Perl_sv_isa)(pTHX_ SV*, const char*);
+  static void (*Perl_sv_magic)(pTHX_ SV*, SV*, int, const char*, I32);
+***************
+*** 266,271 ****
+--- 294,303 ----
+      {"Perl_sv_2pv_nolen", (PERL_PROC*)&Perl_sv_2pv_nolen},
+  #else
+      {"Perl_sv_2pv", (PERL_PROC*)&Perl_sv_2pv},
++ #endif
++ #ifdef PERL589_OR_LATER
++     {"Perl_sv_2iv_flags", (PERL_PROC*)&Perl_sv_2iv_flags},
++     {"Perl_newXS_flags", (PERL_PROC*)&Perl_newXS_flags},
+  #endif
+      {"Perl_sv_bless", (PERL_PROC*)&Perl_sv_bless},
+  #if (PERL_REVISION == 5) && (PERL_VERSION >= 8)
+*** ../vim-7.1.101/src/version.c	Thu Sep 13 15:00:28 2007
+--- src/version.c	Thu Sep 13 15:18:36 2007
+***************
+*** 668,669 ****
+--- 668,671 ----
+  {   /* Add new patch number below this line */
++ /**/
++     102,
+  /**/
+
+-- 
+Witches prefer brooms: vacuum-cleaners need extension cords!
+
+ /// Bram Moolenaar -- Bram@Moolenaar.net -- http://www.Moolenaar.net   \\\
+///        sponsor Vim, vote for features -- http://www.Vim.org/sponsor/ \\\
+\\\        download, build and distribute -- http://www.A-A-P.org        ///
+ \\\            help me help AIDS victims -- http://ICCF-Holland.org    ///