Use of uninitialized value $number in numeric comparison (<=>) at /usr/share/perl5/Number/Format.pm line 541.

[Travis Hampton]

Binary package hint: libnumber-format-perl

https://rt.cpan.org/Public/Bug/Display.html?id=48038

--- Format.pm 2010-08-04 13:37:59.486746075 +0000
***************
*** 537,542 ****
--- 537,544 ----
      $precision = $self->{decimal_digits} unless defined $precision;
      $trailing_zeroes = $self->{decimal_fill} unless defined $trailing_zeroes;

+ unless ( defined($number) ) { $number = 0 };
+
      # Handle negative numbers
      my $sign = $number <=> 0;
      $number = abs($number) if $sign < 0;
***************
*** 786,791 ****
--- 788,795 ----
      $precision = $self->{decimal_digits} unless defined $precision; # fallback
      $precision = 2 unless defined $precision; # default

+ unless ( defined($number) ) { $number = 0 };
+
      # Determine sign and absolute value
      my $sign = $number <=> 0;
      $number = abs($number) if $sign < 0;