FormatOutput(): Add missing variable init.

Signed-off-by: Thomas Hochstein <thh@thh.name>
2026-01-17 02:47:53 +01:00
1 changed files with 3 additions and 0 deletions
--- a/lib/NewsStats.pm
+++ b/lib/NewsStats.pm
@ -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)