FormatOutput(): Add missing variable init.

Signed-off-by: Thomas Hochstein <thh@thh.name>
This commit is contained in:
Thomas Hochstein 2026-01-17 02:47:53 +01:00
parent 8734008ab0
commit deb812da58
2 changed files with 4 additions and 0 deletions

View file

@ -501,6 +501,9 @@ sub FormatOutput {
my ($Format, $Comments, $LeadIn, $Caption, $Key, $Value, $Precision, $PadField,
$PadValue, $LastIteration) = @_;
my ($Output);
# initialise $PadValue; $PadField needs not to be initialised,
# as access to both is gated by valid $PadField
$PadValue = 0 if !$PadValue;
# create one line of output
if ($Format eq 'dump') {
# output as dump (key value)