Sophie

Sophie

distrib > Fedora > 13 > i386 > media > updates-src > by-pkgid > 53b43c8bacf0105123241c875acd0e1d > files > 1

perl-Number-Compare-0.01-15.fc13.src.rpm

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