diff --git a/scripts/managen b/scripts/managen index a12d430960c0f98b4b11017b19a2ca46e1b1295e..3688478d79d16efd8414fd7b27f4034cc6048d6a 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 52b6e13e344b83e4425795f689c15da6e7dbc65d..96c2b4192b32a5bfc5da3c53d8351c6d3e06d948 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++;