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 (executable)
--- 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);
 }