pkg-perl-maintainers team mailing list archive

[Travis Hampton <613460@xxxxxxxxxxxxxxxxxx>]

Public bug reported:

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;

** Affects: libnumber-format-perl (Ubuntu)
     Importance: Undecided
         Status: New

-- 
Use of uninitialized value $number in numeric comparison (<=>) at /usr/share/perl5/Number/Format.pm line 541.
https://bugs.launchpad.net/bugs/613460
You received this bug notification because you are a member of Debian
Perl Group, which is subscribed to libnumber-format-perl in ubuntu.