[7589] av_len instead of av_top_index

[gavinsmith0123]

Revision: 7589
          http://svn.sv.gnu.org/viewvc/?view=rev&root=texinfo&revision=7589
Author:   gavin
Date:     2016-12-31 00:14:52 +0000 (Sat, 31 Dec 2016)
Log Message:
-----------
av_len instead of av_top_index

Modified Paths:
--------------
    trunk/ChangeLog
    trunk/tp/Texinfo/MiscXS/miscxs.c

Modified: trunk/ChangeLog
===================================================================
--- trunk/ChangeLog     2016-12-30 23:24:55 UTC (rev 7588)
+++ trunk/ChangeLog     2016-12-31 00:14:52 UTC (rev 7589)
@@ -1,5 +1,11 @@
 2016-12-30  Gavin Smith  <address@hidden>
 
+       * tp/Texinfo/MiscXS/miscxs.c (xs_merge_text, xs_abort_empty_line):
+       Use 'av_len' instead of 'av_top_index' for compatibility with 
+       older versions of Perl.
+
+2016-12-30  Gavin Smith  <address@hidden>
+
        * configure.ac: If XS modules are enabled, configure in 
        tp/Texinfo/MiscXS directory.
        * autogen.sh: Run autoreconf in MiscXS directory.

Modified: trunk/tp/Texinfo/MiscXS/miscxs.c
===================================================================
--- trunk/tp/Texinfo/MiscXS/miscxs.c    2016-12-30 23:24:55 UTC (rev 7588)
+++ trunk/tp/Texinfo/MiscXS/miscxs.c    2016-12-31 00:14:52 UTC (rev 7589)
@@ -69,7 +69,7 @@
     return 0;
   contents_array = (AV *)SvRV(*svp);
 
-  contents_num = av_top_index(contents_array) + 1;
+  contents_num = av_len(contents_array) + 1;
   if (contents_num == 0)
     return 0;
 
@@ -354,7 +354,7 @@
   if (no_merge_with_following_text)
     goto NEW_TEXT;
 
-  contents_num = av_top_index(contents_array) + 1;
+  contents_num = av_len(contents_array) + 1;
   if (contents_num == 0)
     goto NEW_TEXT;