| Subject: | [patch] Uninitialized warnings on $magnitude during testing |
This patch fixes uninitialized warnings on $magnitude under Perl 5.12.1.
Deven
| Subject: | Number-Compare-0.01-uninitialized.patch |
--- Number-Compare-0.01/Compare.pm.orig 2002-10-25 11:46:27.000000000 -0400
+++ Number-Compare-0.01/Compare.pm 2010-06-16 13:54:02.000000000 -0400
@@ -26,7 +26,7 @@
my $comparison = $1 || '==';
my $target = $2;
- my $magnitude = $3;
+ my $magnitude = $3 || '';
$target *= 1000 if lc $magnitude eq 'k';
$target *= 1024 if lc $magnitude eq 'ki';
$target *= 1000000 if lc $magnitude eq 'm';