This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Suggestion by Rick Delaney to make this test pass with -Duse64bitall
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 8 Oct 2007 15:52:37 +0000 (15:52 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 8 Oct 2007 15:52:37 +0000 (15:52 +0000)
on HP-UX (see bug #46011)

p4raw-id: //depot/perl@32071

lib/overload.t

index 09809d5..29411e1 100644 (file)
@@ -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');