Patch for tests, affects only tests on amd64

(Portage version: 2.1.1_rc1-r3)

3 files changed, 31 insertions, 5 deletions

diff --git a/dev-perl/Devel-Size/ChangeLog b/dev-perl/Devel-Size/ChangeLog
index 58e2df8b638b..5d999b23aa69 100644
--- a/dev-perl/Devel-Size/ChangeLog
+++ b/dev-perl/Devel-Size/ChangeLog
@@ -1,6 +1,10 @@
 # ChangeLog for dev-perl/Devel-Size
 # Copyright 1999-2006 Gentoo Foundation; Distributed under the GPL v2
-# $Header: /var/cvsroot/gentoo-x86/dev-perl/Devel-Size/ChangeLog,v 1.6 2006/08/05 02:51:54 mcummings Exp $
+# $Header: /var/cvsroot/gentoo-x86/dev-perl/Devel-Size/ChangeLog,v 1.7 2006/09/11 21:33:37 mcummings Exp $
+
+  11 Sep 2006; Michael Cummings <mcummings@gentoo.org>
+  +files/Devel-Size-test-fix.patch, Devel-Size-0.64.ebuild:
+  Patch for tests, affects only tests on amd64
 
   05 Aug 2006; Michael Cummings <mcummings@gentoo.org>
   Devel-Size-0.64.ebuild:
diff --git a/dev-perl/Devel-Size/Devel-Size-0.64.ebuild b/dev-perl/Devel-Size/Devel-Size-0.64.ebuild
index 512f7c4574ba..800c57c42b8c 100644
--- a/dev-perl/Devel-Size/Devel-Size-0.64.ebuild
+++ b/dev-perl/Devel-Size/Devel-Size-0.64.ebuild
@@ -1,6 +1,6 @@
 # Copyright 1999-2006 Gentoo Foundation
 # Distributed under the terms of the GNU General Public License v2
-# $Header: /var/cvsroot/gentoo-x86/dev-perl/Devel-Size/Devel-Size-0.64.ebuild,v 1.6 2006/08/05 02:51:54 mcummings Exp $
+# $Header: /var/cvsroot/gentoo-x86/dev-perl/Devel-Size/Devel-Size-0.64.ebuild,v 1.7 2006/09/11 21:33:37 mcummings Exp $
 
 inherit perl-module
 
@@ -12,10 +12,8 @@ LICENSE="|| ( Artistic GPL-2 )"
 SLOT="0"
 KEYWORDS="amd64 ~ia64 sparc x86"
 IUSE=""
+PATCHES="${FILESDIR}/Devel-Size-test-fix.patch"
 
 SRC_TEST="do"
 
-
-
 DEPEND="dev-lang/perl"
-RDEPEND="${DEPEND}"
diff --git a/dev-perl/Devel-Size/files/Devel-Size-test-fix.patch b/dev-perl/Devel-Size/files/Devel-Size-test-fix.patch
new file mode 100644
index 000000000000..56e2321d6078
--- /dev/null
+++ b/dev-perl/Devel-Size/files/Devel-Size-test-fix.patch
@@ -0,0 +1,24 @@
+diff -ruN Devel-Size-0.64/t/basic.t Devel-Size-0.64_a/t/basic.t
+--- Devel-Size-0.64/t/basic.t	2004-11-27 22:40:31.000000000 +0100
++++ Devel-Size-0.64_a/t/basic.t	2006-09-09 18:49:12.000000000 +0200
+@@ -24,17 +24,17 @@
+ %foo = (a => 1, b => 2);
+ 
+ my $x = "A string";
+-my $y = "A longer string";
++my $y = "A much much longer string";
+ if (size($x) < size($y)) {
+     print "ok 2\n";
+ } else {
+-    print "not ok 2\n";
++    print "not ok 2 # " . size($x) . " not < than " . size($y) . "\n";
+ }
+ 
+ if (total_size($x) < total_size($y)) {
+     print "ok 3\n";
+ } else {
+-    print "not ok 3\n";
++    print "not ok 3 # " . total_size($x) . " not < than " . total_size($y) . "\n";
+ }
+ 
+ my @x = (1..4);