FormatOutput(): Add missing variable init.
Signed-off-by: Thomas Hochstein <thh@thh.name>
This commit is contained in:
parent
8734008ab0
commit
deb812da58
2 changed files with 4 additions and 0 deletions
|
|
@ -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)
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue