From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Mon, 8 Oct 2007 15:52:37 +0000 (+0000)
Subject: Suggestion by Rick Delaney to make this test pass with -Duse64bitall
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=93521010e6bb87f59a5ba3fcef3362ec5b84ce59;p=p5sagit%2Fp5-mst-13.2.git

Suggestion by Rick Delaney to make this test pass with -Duse64bitall
on HP-UX (see bug #46011)

p4raw-id: //depot/perl@32071
---

diff --git a/lib/overload.t b/lib/overload.t
index 09809d5..29411e1 100644
--- a/lib/overload.t
+++ b/lib/overload.t
@@ -1392,7 +1392,7 @@ foreach my $op (qw(<=> == != < <= > >=)) {
     is($o->[0], 1, 'int() numifies only once');
 
     my $aref = [];
-    my $num_val = 0 + $aref;
+    my $num_val = int($aref);
     my $r = bless $aref, 'numify_self';
     is(int($r), $num_val, 'numifies to self');
     is($r->[0], 1, 'int() numifies once when returning self');