texinfo/tp/Texinfo/Convert HTML.pm

[Patrice Dumas]

CVSROOT:        /sources/texinfo
Module name:    texinfo
Changes by:     Patrice Dumas <pertusus>        11/10/22 19:02:24

Modified files:
        tp/Texinfo/Convert: HTML.pm 

Log message:
        Currently 0 for in_upper_case means lower casing, so use undef instead.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/Texinfo/Convert/HTML.pm?cvsroot=texinfo&r1=1.191&r2=1.192

Patches:
Index: HTML.pm
===================================================================
RCS file: /sources/texinfo/texinfo/tp/Texinfo/Convert/HTML.pm,v
retrieving revision 1.191
retrieving revision 1.192
diff -u -b -r1.191 -r1.192
--- HTML.pm     22 Oct 2011 18:41:44 -0000      1.191
+++ HTML.pm     22 Oct 2011 19:02:24 -0000      1.192
@@ -120,10 +120,15 @@
   }
 }
 
+# 0 do not necessarily mean the same than undef, it may mean lower_casing
 sub in_upper_case($)
 {
   my $self = shift;
+  if 
($self->{'document_context'}->[-1]->{'formatting_context'}->[-1]->{'upper_case'})
 {
   return 
$self->{'document_context'}->[-1]->{'formatting_context'}->[-1]->{'upper_case'};
+  } else {
+    return undef;
+  }
 }
 
 sub in_space_protected($)