Lines Matching refs:underline
84 # * Added "underline tolerance" for when underlines are not exactly the
85 # same length as what they underline.
723 local($underline) = $nextline =~ /^\s*(\S+)\s*$/;
725 if((length($heading) > (length($underline) + $underline_tolerance_short))
726 || (length($heading) < (length($underline) -$underline_tolerance_long)))
731 # $underline =~ s/(^.).*/$1/; # Could I do this any less efficiently?
732 $underline = substr($underline,0,1);
735 $hlevel = 1 if $underline eq "*";
736 $hlevel = 2 if $underline eq "=";
737 $hlevel = 3 if $underline eq "+";
738 $hlevel = 4 if $underline eq "-";
739 $hlevel = 5 if $underline eq "~";
740 $hlevel = 6 if $underline eq ".";
743 $nextline = <STDIN>; # Eat the underline
