diff --git a/scripts/managen b/scripts/managen index c56cb86a1f..ef30e7e163 100755 --- a/scripts/managen +++ b/scripts/managen @@ -89,6 +89,12 @@ sub manpageify { my $colwidth=79; # max number of columns +sub prefixline { + my ($num) = @_; + print "\t" x ($num/8); + print ' ' x ($num%8); +} + sub justline { my ($lvl, @line) = @_; my $w = -1; @@ -105,7 +111,7 @@ sub justline { $ratio = $inject / $spaces; } my $spare = 0; - print ' ' x ($lvl * $indent); + prefixline($lvl * $indent); my $prev; for(@line) { while($spare >= 0.90) { @@ -121,7 +127,7 @@ sub justline { sub lastline { my ($lvl, @line) = @_; - print ' ' x ($lvl * $indent); + prefixline($lvl * $indent); my $prev = 0; for(@line) { printf "%s%s", $prev?" ":"", $_; diff --git a/src/mkhelp.pl b/src/mkhelp.pl index 52b6e13e34..96c2b4192b 100755 --- a/src/mkhelp.pl +++ b/src/mkhelp.pl @@ -167,6 +167,7 @@ for my $n (@out) { chomp $n; $n =~ s/\\/\\\\/g; $n =~ s/\"/\\\"/g; + $n =~ s/\t/\\t/g; if(!$n) { $blank++;