changeset 1395:c845dcf7fafa v7.1.110

updated for version 7.1-110
author vimboss
date Sat, 15 Sep 2007 12:49:35 +0000
parents 1002128c68db
children 3e0f9984e98e
files src/if_perl.xs src/version.c
diffstat 2 files changed, 10 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/src/if_perl.xs
+++ b/src/if_perl.xs
@@ -48,13 +48,15 @@
  * 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:
+ * Jan Dubois suggested the following guarding scheme.
+ *
+ * Active State defined ACTIVEPERL_VERSION as a string in versions before
+ * 5.8.8; and so the comparison to 822 below needs to be guarded.
  */
-#if (ACTIVEPERL_VERSION >= 822)
-# define PERL589_OR_LATER
-#endif
-#if (PERL_REVISION == 5) && (PERL_VERSION == 8) && (PERL_SUBVERSION >= 9)
-# define PERL589_OR_LATER
+#if (PERL_REVISION == 5) && (PERL_VERSION == 8) && (PERL_SUBVERSION >= 8)
+# if (ACTIVEPERL_VERSION >= 822) || (PERL_SUBVERSION >= 9)
+#  define PERL589_OR_LATER
+# endif
 #endif
 #if (PERL_REVISION == 5) && (PERL_VERSION >= 9)
 # define PERL589_OR_LATER
--- a/src/version.c
+++ b/src/version.c
@@ -667,6 +667,8 @@ static char *(features[]) =
 static int included_patches[] =
 {   /* Add new patch number below this line */
 /**/
+    110,
+/**/
     109,
 /**/
     108,