Change 11598 by jhi@alpha on 2001/08/06 15:02:48
Yet another way to say Infinity: HP-UX calls its "++".
Affected files ...
... //depot/perl/lib/Math/BigInt/t/bigintpm.t#8 edit
Differences ...
==== //depot/perl/lib/Math/BigInt/t/bigintpm.t#8 (xtext) ====
Index: perl/lib/Math/BigInt/t/bigintpm.t
--- perl/lib/Math/BigInt/t/bigintpm.t.~1~ Mon Aug 6 09:15:05 2001
+++ perl/lib/Math/BigInt/t/bigintpm.t Mon Aug 6 09:15:05 2001
@@ -531,11 +531,15 @@
# 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);
}
End of Patch.
