From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 6 Aug 2001 15:02:48 +0000 (+0000)
Subject: Yet another way to say Infinity: HP-UX calls its "++".
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=606f94800c615ae6d5c5c0fc6dbac1e8323ea558;p=p5sagit%2Fp5-mst-13.2.git

Yet another way to say Infinity: HP-UX calls its "++".

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

diff --git a/lib/Math/BigInt/t/bigintpm.t b/lib/Math/BigInt/t/bigintpm.t
index 4b28f0b..e456a3e 100755
--- a/lib/Math/BigInt/t/bigintpm.t
+++ b/lib/Math/BigInt/t/bigintpm.t
@@ -531,11 +531,15 @@ $x = Math::BigInt->new('+inf'); ok_inf ($x,$y);
 
 # libc are confused what to call Infinity
 
+sub fix_inf {
+    $_[0] =~ s/^(inf(?:inity)?|\+\+)$/Inf/i; # HP-UX calls it "++"
+}
+
 sub ok_inf {
     my ($x, $y) = @_;
 
-    $x =~ s/^inf(?:inity)?/Inf/i;
-    $y =~ s/^inf(?:inity)?/Inf/i;
+    fix_inf($x);
+    fix_inf($y);
 
     ok($x, $y);
 }