diff options
-rwxr-xr-x | re | 6 |
1 files changed, 5 insertions, 1 deletions
@@ -112,7 +112,11 @@ while (<$fh>) { $bytes += length($_); last if $end and $bytes > $end; /^(\s+)/; my $indent = $1; - s/(.{60})(.)/$1\\fR...\\fP\n$indent\t$2/g; + my $max = 64; + for (split //, $indent) { + $max -= 7 if /\t/; + } + s/(.{$max})(.{6,})/$1\\fR...\\fP\n$indent\t$2/g; s/\\/\\\\/g; s/\\\\fR...\\\\fP/\\fR...\\fP/g; s/^\./\\&./m; |