From 8b80814effe98e7f9d27b56e4e3d5457b5d26e61 Mon Sep 17 00:00:00 2001
From: Viktor Szakats <commit@vsz.me>
Date: Fri, 11 Jul 2025 17:11:29 +0200
Subject: [PATCH] managen: more fixes 2

---
 scripts/managen | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/scripts/managen b/scripts/managen
index 1cd56e065d..a70a8982f0 100755
--- a/scripts/managen
+++ b/scripts/managen
@@ -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]*)\]//;