File bash-4.2-modern-perl.dif of Package bash42

---
 support/texi2html |   12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

--- support/texi2html
+++ support/texi2html	2016-10-04 12:54:35.174934079 +0000
@@ -3074,8 +3074,8 @@ INPUT_LINE: while ($_ = &next_line) {
 	  $after = '';
 	}
 	$args =~ s|\\\\|\\|g;
-	$args =~ s|\\{|{|g;
-        $args =~ s|\\}|}|g;
+	$args =~ s|\\\{|\{|g;
+        $args =~ s|\\\}|\}|g;
 	if (@{$macros->{$name}->{Args}} > 1)
 	{
 	  $args =~ s/(^|[^\\]),/$1$;/g ;
@@ -4200,7 +4200,7 @@ while (@lines) {
     #
     # xref
     #
-    while (/\@(x|px|info|)ref{([^{}]+)(}?)/) {
+    while (/\@(x|px|info|)ref\{([^\{\}]+)(\}?)/) {
 	# note: Texinfo may accept other characters
 	($type, $nodes, $full) = ($1, $2, $3);
 	($before, $after) = ($`, $');
@@ -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);
 	}