diff --git a/Number-Compare-0.01-uninitialized.patch b/Number-Compare-0.01-uninitialized.patch
new file mode 100644
index 0000000..da4dd9b
--- /dev/null
+++ b/Number-Compare-0.01-uninitialized.patch
@@ -0,0 +1,11 @@
+--- 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';
diff --git a/perl-Number-Compare.spec b/perl-Number-Compare.spec
index 9561911..5007b05 100644
--- a/perl-Number-Compare.spec
+++ b/perl-Number-Compare.spec
@@ -1,11 +1,14 @@
 Name: 		perl-Number-Compare
 Version: 	0.01
-Release: 	14%{?dist}
+Release: 	15%{?dist}
 Summary: 	Perl module for numeric comparisons
 License: 	GPL+ or Artistic
 Group: 		Development/Libraries
 URL: 		http://search.cpan.org/dist/Number-Compare/
 Source0: 	http://www.cpan.org/modules/by-module/Number/Number-Compare-%{version}.tar.gz
+# Address https://bugzilla.redhat.com/show_bug.cgi?id=607982
+# Patch from https://rt.cpan.org/Public/Bug/Display.html?id=58466
+Patch0:         https://rt.cpan.org/Ticket/Attachment/792151/410599/Number-Compare-0.01-uninitialized.patch
 BuildRoot:      %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)
 
 BuildArch: 	noarch
@@ -19,7 +22,7 @@ which you can call with a value to be tested again.
 
 %prep
 %setup -q -n Number-Compare-%{version}
-
+%patch0 -p1
 
 %build
 %{__perl} Makefile.PL INSTALLDIRS=vendor
@@ -48,6 +51,10 @@ make test
 %{_mandir}/man3/*
 
 %changelog
+* Sat Jun 26 2010 Ralf Corsépius <corsepiu@fedoraproject.org> - 0.01-15
+- Apply https://rt.cpan.org/Ticket/Attachment/792151/410599/Number-Compare-0.01-uninitialized.patch
+  to address https://bugzilla.redhat.com/show_bug.cgi?id=607982.
+
 * Tue May 04 2010 Marcela Maslanova <mmaslano@redhat.com> - 0.01-14
 - Mass rebuild with perl-5.12.0