a926a4fef9
OBS-URL: https://build.opensuse.org/request/show/314678 OBS-URL: https://build.opensuse.org/package/show/Base:System/bash?expand=0&rev=206
29 lines
762 B
Diff
29 lines
762 B
Diff
From: coolo@suse.com
|
|
|
|
perl 5.22 makes the long deprecated defined(@array) an hard
|
|
error
|
|
|
|
--- support/texi2html
|
|
+++ support/texi2html
|
|
@@ -4855,9 +4855,9 @@ sub update_sec_num {
|
|
my $ret;
|
|
|
|
$level--; # here we start at 0
|
|
- if ($name =~ /^appendix/ || defined(@appendix_sec_num)) {
|
|
+ if ($name =~ /^appendix/ || @appendix_sec_num) {
|
|
# 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);
|
|
@@ -4865,7 +4865,7 @@ sub update_sec_num {
|
|
$ret = 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);
|
|
}
|