romenskiy2012/curl
1
0
Fork 0
mirror of https://github.com/curl/curl.git synced 2026-06-07 19:24:17 +03:00
Code Issues Projects Releases Packages Wiki Activity

managen: more fixes 2

Browse source
This commit is contained in:
Viktor Szakats 2025-07-11 17:11:29 +02:00
parent d0cb4f94e1
commit 8b80814eff
No known key found for this signature in database
GPG key ID: B5ABD165E2AEF201
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
scripts/managen
View file

@ -130,8 +130,10 @@ sub justline {
sub lastline {
my ($lvl, @line) = @_;
my $l = 0;
$line[0] =~ s/^( +)//;
prefixline($lvl * $indent + length($1));
$l = length($1) if($1);
prefixline($lvl * $indent + $l);
my $prev = 0;
for(@line) {
printf "%s%s", $prev?" ":"", $_;
@ -179,7 +181,7 @@ sub printdesc {
my $p = -1;
my $para = '';
for my $l (@desc) {
my $lvl = '';
my $lvl = 0;
if($l !~ /^[\n\r]+/) {
# get the indent level off the string
$l =~ s/^\[([0-9q]*)\]//;