--- 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';