From 09cfae667ed8a7de8bdd64956abe5e55183a9d2c Mon Sep 17 00:00:00 2001 From: Bruno Haible Date: Sat, 1 Apr 2017 00:18:30 +0200 Subject: Fix doc build error with perl 5.22. * doc/texi2html (update_sec_num): Omit defined(...) for array. --- ChangeLog | 5 +++++ doc/texi2html | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index bf56b73..bd302f1 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2017-03-31 Bruno Haible + + Fix doc build error with perl 5.22. + * doc/texi2html (update_sec_num): Omit defined(...) for array. + 2017-01-10 Bruno Haible Update some URL. diff --git a/doc/texi2html b/doc/texi2html index d423c2f..5ada126 100755 --- a/doc/texi2html +++ b/doc/texi2html @@ -1561,7 +1561,7 @@ sub update_sec_num { $level--; # here we start at 0 if ($name =~ /^appendix/) { # appendix style - if (defined(@appendix_sec_num)) { + if (@appendix_sec_num) { &incr_sec_num($level, @appendix_sec_num); } else { @appendix_sec_num = ('A', 0, 0, 0); @@ -1569,7 +1569,7 @@ sub update_sec_num { return(join('.', @appendix_sec_num[0..$level])); } else { # normal style - if (defined(@normal_sec_num)) { + if (@normal_sec_num) { &incr_sec_num($level, @normal_sec_num); } else { @normal_sec_num = (1, 0, 0, 0); -- cgit v1.2.1